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Why more than 600,000 


programmers worldwide are using 
Turbo Pascal today 





Sieve benchmark 


Compile and 
link time 
Execution time 3.95 

Object code 
A 
$99.95 | $450.00 
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Benchmark run on an IBM PS/2 Model 60 using Turbo C version 
1.0 and the Turbo Linker version 1.0; Microsoft C version 4.0 and 
the MS overlay linker version 3.51. 




































Technical Specifications 


[Y Compiler: One-pass optimizing com- 
piler generating linkable object 
modules. Included is Borland’s high- 
performance Turbo Linker.” The object 
module is compatible with the PC- 
DOS linker. Supports tiny, small, com- 
pact, medium, large, and huge 
memory model libraries. Can mix 
models with near and far pointers. 
Includes floating point emulator 
(utilizes 8087/80287 if installed). 

[Y Interactive Editor: The system 
includes a powerful, interactive full- 
screen text editor. If the compiler 
detects an error, the editor auto- 
matically positions the cursor approp- 
riately in the source code. 

[Y Development Environment: A power- 
ful “Make” is included so that manag- 
ing Turbo C program development is 
highly efficient. Also includes pull- 
down menus and windows. 

(Y Links with relocatable object modules 
created using Borland’s Turbo Prolog 
into a single program. 

[Y Inline assembly code. 

[Y Loop optimizations. 

[Y Register variables. 

[Y ANSI C compatible. 

(Y Start-up routine source code included. 

[Y Both command line and integrated 
environment versions included. 

(Y License to the source code for Run- 

time Library available. 


Join more than 100,000 Turbo C 
enthusiasts. Get your copy of 
Turbo C today! 


Minimum system requirements: A\| products run on IBM PC, 
XT, AT, PS/2, portable and true compatibles. PC-DOS (MS-DOS) 
2.0 or later. 384K RAM minimum. Basic Telecom and Editor Tool- 
boxes require 640K. 


Borland International 
4585 Scotts Valley Drive, Scotts Valley, CA 95066 
Telephone: (408) 438-8400 ‘Telex: 172373 


Turbo Pascal’s worldwide 

success is Borland’s advanced 
technology. We created a com- 
piler so fast, that Turbo Pascal® is 
now the worldwide standard. And 
there are more tools for Turbo 
Pascal than for any other develop- 
ment environment in the world. 


Tr irresistible force behind 


You'll get everything you 
need from Turbo Pascal and 
its 5 Toolboxes 


Turbo Pascal and Family are 
all you’ll ever need to perfect pro- 
gramming in Pascal. 

If you’ve never programmed 
in Pascal, you’ll probably want to 
start with Turbo Pascal Tutor® 2.0, 
and as your expertise quickly 
grows, add Toolboxes like our 


e Database Toolbox® 
e Editor Toolbox® 
Graphix Toolbox® 
¢ GameWorks® 
and our newest, 
¢ Numerical Methods Toolbox” 
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And because Turbo Pascal is the 
established worldwide standard, 
3rd party, independent non- 
Borland developers also offer an 
incredible array of programs for 
Turbo Pascal. Only $99.95! 





66 Borland International’s 
Turbo Pascal took the pro- 
gramming world by storm. A 
great compiler combined 
with a good editor at an 
astounding price, the pack- 
age quickly came to be 
called, simply, Turbo—and 
has sold more than 500,000 
copies. 

Stephen Randy Davis, PC Magazine 


Language deal of the cen- 
tury. PC Magazine 





For Scientists and Engineers: 
Turbo Pascal Numerical 
Methods Toolbox 


The Numerical Methods ‘Tool- 
box is a complete collection of 
Turbo Pascal routines and pro- 
grams. Add it to your develop- 
ment system and you have the 
most comprehensive and power- 
ful numerical analysis capabil- 
ities—at your fingertips! 


The Numerical Methods Tool- 
box is a state-of-the-art mathemat- 
ical toolbox with these ten pow- 
erful features: 


[¥ Zeros of a function 
Interpolation 
Differentiation 
Integration 

Matrix Inversion 
Matrix Eigenvalues 
Differential Equations 
Least Squares 

Fourier Transforms 
Graphics 
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Each module comes with pro- 
cedures that can be easily adapted 
to your own program. The Tool- 
box also comes complete with 
source code. So you have total 
control of your application. 


Only $99.95! 


Turbo Prolog: 
The Natural Language of 
Artificial Intelligence 


hether you're a first-time 
\V/ programmer or an expe- 
rienced one, Turbo Prolog’s 
natural implementation of Artifi- 
cial Intelligence soon shows you 
how to build expert systems, nat- 
ural language interfaces, custom- 
ized knowledge bases and smart 
information 
management 
systems. 


Turbo Prolog and Turbo C 
work hand-in-hand 


Turbo Prolog’ interfaces per- 
fectly with Turbo C® because 
they’re both designed to work 
with each other. 

The Turbo Prolog/Turbo C 
combination means that you can 
now build powerful commercial 
applications using two of the 
most powerful languages 
available. 


Turbo Prolog’s development 
system includes: 


[¥ Acomplete Prolog compiler that 
is a variation of the Clocksin and 
Mellish Edinburgh standard 

| Prolog. 

_&™ A full-screen interactive editor. 

_& Support for both graphic and text 
windows. 

[YW All the tools that let you build 

your Own expert systems and 

AI applications with un- 

precedented ease. 














All Borland products are trademarks or registered trademarks of Borland Interna- 
tional, Inc., or Borland/Analytica, Inc. Other brand and product names are trade- 
marks or registered trademarks of their respective holders. 

Copyright 1987 Borland International BI-1131 









4&6 An affordable, fast, and 
easy-to-use language that 
will delight the newcomer 
... YOu experienced Prolog 
hackers will likewise be 
delighted, if not astonished, 
by the features and per- 
formance of the Turbo 
Prolog development 
environment. 

Turbo Prolog offers gener- 
ally the fastest and most 
approachable implementa- 
tion of that language. 


Darryl Rubin, AI Expert J I 





How Turbo Prolog’s new Tool- 
box adds 80 powerful tools 
and 8000 lines of source code 


In keeping with Borland tradi- 
tion, we’ve quickly added the 
new Turbo Prolog Toolbox™ to 
Turbo Prolog. 

With 80 tools and 8000 lines 
of source code that can easily be 
incorporated into your own pro- 
grams—and 40 sample programs 
that show you how to put these 
AI tools to work—the Turbo 
Prolog Toolbox is a highly intelli- 
gent, high-performance addition. 
Only $99.95! 


Turbo Prolog Toolbox 
features include: 


[¥ Business graphics generation: 
boxes, circles, ellipses, bar charts, 
pie charts, scaled graphics 
Complete communications pack- 
age: supports XMODEM protocol 
File transfers from Reflex,® dBASE 
III,* 1-2-3,° Symphony* 

A unique parser generator: con- 
Struct your own compiler or query 
language 
Sophisticated user-interface design 
tools 
Contains 40 example programs 
Easy-to-use screen editor: design 
your screen layout and I/O 

Calculated fields definition 
Over 8,000 lines of source code 
you can incorporate into your own 


programs 
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Tut 
The most pov 
comp 


ur new Turbo C generates 
O fast, tight, production- 
quality code at compilation 
speeds of more than 13,000 lines 
a minute! 
It’s the full-featured optimizing 
compiler everyone has been wait- 
ing for. 


Switching to Turbo C, or 
starting with Turbo C, you 
win both ways 
If you’re already programming 
in C, switching to Turbo C will 
make you feel like you're riding a | 
rocket instead of pedaling a bike. 
If you’re never programmed in | 
C, starting with Turbo C gives you 
an instant edge. It’s easy to learn, 
easy to use, and the most efficient 
C compiler at any price. 
Only $99.95! 





&& Turbo C does look like 
What We've All Been Waiting 
For: a full-featured compiler | 
that produces excellent 
code in an unbelievable 
hurry... moves into a class 
all its own among full- 
featured C compilers . . . 
Turbo C is indeed for the 
serious developer... One 
heck of a buy—at any | 


7 
price. Michael Abrash, \ 
Programmer’s Journal J 5 | 
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Turbo C, 
Turbo Basic, 
Turbo Pascal an 
Turbo Prolog: 
technical 
excellence 














66 Borland International’s Turbo Pascal, Turbo Basic 
and Turbo Prolog automatically identify themselves, by 
virtue of their ‘Turbo’ forenames, as superior language 
products with a common programming environment. 
The appellation also means to many PC users a ‘must 
have’ language. To us Turbo C looks like a coup for 
Borland. Garry Ray, PC Week FF 
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>More ‘Magic 
_ from Blaise. 


Magic is easy with Turbo C TOOLS 
in your bag of tricks. New Turbo C 
TOOLS" from Blaise Computing is a 
library of compiled C functions that 
allows you full control over the com- 
puter, the video environment, and the 
file system, and gives you the jump on 
building programs with Borland’s new 
C compiler. Now you can concentrate 
on the creative parts of your programs. 


The library comes with well-docu- 
mented source code so that you can 
study, emulate, or adapt it to your speci- 
fic needs. Blaise Computing’s S&ention 
to detail, like the use of function proto- 
typing, cleanly organized header files, 
and a comprehensive, fully-indexed 
manual, makes Turbo C 

TOOLS the choice for 
experienced 
software 










¥ op memory resident applications that can 


ities that you write with Turbo C TOOLS. 
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developers as well as newcomers to C. 


Turbo C TOOLS provides the sophisti- 
cated, bullet-proof capabilities needed 
in today’s programming environmen® 
including removable windows, “side-, 
kickable” applications, and general 
interrupt service routines written in C. » 


The functions contained in Turbo C 
TOOLS are carefully crafted to supple- 
ment Turbo C, exploiting its strengths 
without duplicating its library functions. 
As a result you'll get functions written 
predominantly in C, that isolate hard- 
ware independence, and are small and 
easy to use. 


Turbo C TOOLS embodies the full spectrum 
of general purpose utility functions that are 
critical to today’s applications. Some of the 
features in Turbo C TOOLS are: 


that are stackable and remov- 
able, that have optional borders and a cursor 
memory, and that can accept user input. 


sup- 
port for truly flexible, robust and polite 


applications. We show you how to capture 
DOS critical errors and keystrokes. 


lets you devel- 


take full advantage of DOS capabilities. 
With simple function calls, you.can schedule 
a Turbo C function to execute either when 
a “hot key” is pressed or at a specified time. 


: lets 
ou create, detect, and remove resident util- 


| for 
efficiency, and support for all monitors 
including EGA 43-line mode. 


support let you take advantage of the DOS 
file structure, including volume labels and 
directory structure. 


supports In addition to Turbo C TOOLS, Blaise 
the Borland Computing Inc. has a full line of sup- 
- TurboCcom- port products for Microsoft, Lattice 
r piler, requires and Datalight C, Microsoft Pascal 
~ DOS 2.00 or and Turbo Pascal. Call ~ lle 
later and is just today for details, and Tf : 
$129.00 make magic! 
Ady 
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2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 
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Turbo Basic introduces 
its powerful new Telecom, Editor 
and Database Toolboxes 


NEW! 


urbo Basic® is the break- 
T through you've been waiting 

for. The same power we 
brought to Pascal with Turbo — 
Pascal has now been applied 
to BASIC with Turbo Basic. 

Compatible with BASICA, Turbo 

Basic is the high-performance, 
high-speed BASIC you’d expect 
from Borland. 


Basically, Turbo Basic is 
all you need 


It’s a complete development 
environment which includes an 
incredibly fast compiler, an inter- 
active editor and a trace debug- 
ging system. It outperforms all its 
rivals, and because it’s compatible 
with BASICA, you probably 
already know how to use it. 

Includes a free MicroCalc™ 
spreadsheet complete with source 
code. Only $99.95! 
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A seulinical Inok at Turbo Basic 


[MW Full recursion supported 

[¥ Standard IEEE floating-point format 
[Y Floating-point support, with full 
8087 (math co-processor) integra- 
tion. Software emulation if no 

8087 present 

Program size limited only by avail- 
able memory (no 64K limitation) 
VGA, CGA, and EGA support 

Access to local, static, and global 
variables 

Full integration of the compiler, 
editor, and executable program, 
with separate windows for editing, © 
messages, tracing, and execution 
Compile, run-time, and I/O errors 
place you in the source code 

where error occurred 

New long integer (32-bit) data 

type 


el lel 


lel 


Full 80-bit precision 
Pull-down menus 
Full window management 


Rae & 








66 Borland has created 
the most powerful version 
of BASIC ever. 
Ethan Winer, PC Magazine J J 








NEW! 


Telecom Toolbox is a complete 

communications package which 

takes advantage of the built-in 

communications capabilities of 

BASIC—use as is or modify. 

* Pull-down menus and windows 

¢ XMODEM support 

¢ VT 100 terminal emulation 

* Captures text to disk or printer 

* PhoneBook file 

* 300, 1200, 2400 baud support 

* Supports script files 

¢ Fast screen I/O 

* Supports most of XTalk’s 
command set 

¢ Manual dial and redial options 
Use Telecom Toolbox to embed 

communications capabilities into 

your own programs and/or build 

your own communications pack- 

age. Source code included for 

all Toolbox code and sample 


programs. Only $99.95! 















For the dealer nearest you or to order by phone call 


(800) 255-8008 
in CA (800) 742-1133 in Canada (800) 237-1136 
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BORLAND 


INTERNATIONAL 
SUMMER BREAK SPECIAL ! 
Buy Turbo Basic and get a FREE 
product. See your dealer for details! 
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Database Toolbox means that 
you don’t have to reinvent the 

wheel each time you write new 
Turbo Basic database programs. 


[MW “Trainer” shows you how B+ 
trees work. (Simply key in 
sample records and you'll see 
your index being built.) 


[YW Turbo Access instantly locates, 
inserts or deletes records in a 
database—using B+ trees. 


[W Turbo Sort sorts data on single 
items or on multiple keys and 
features virtual memory 
management for sorting large 
data files. 


Source code included. 


Only $99.95! 











Editor Toolbox is all you need 
to build your own text editor or 
word processor. Includes source 
code for two sample editors. 

First Editor is a complete editor 
ready to include in your programs, 
complete with windows, block 
commands and memory-mapped 
screen routines. 

MicroStar” is a full-blown text 
editor with a complete pull-down 
menu user interface, and gives you 
* Wordwrap 
* Undo last change 
¢ Auto-Indent | 
¢ Find and Find/Replace with options 
° Set left/right margins 
* Block mark, move and copy 
° Tab, insert, overstrike modes, line 

center etc. 
Includes source code. 


Only $99.95! BI-1131A | 
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Quest for Algorithms 


About the Cover 

It’s a problem we've all faced, 
and it dates back to Og, the 
caveman. You struggle with 
primitive tools and hostile envi- 
ronments, only to discover that 
someone else has_ already 
invented the wheel. Special 
thanks to Bob Wynne, our 
production manager, for bat- 
tling saber-toothed tigers every 
month to put this magazine in 
your hands—and for taking the 
time to model for the cover 
photo. All through the photo 
session, we heard him mut- 
tering to himself, “What goes 
round, comes round ....” 


This Issue 

In case you hadn't guessed, it’s 
algorithm time again. We've got 
a good selection of items for 
your toolbox: everything from 
going in circles to climbing 
trees. Now all you need is a 
generic data structure (one size 
fits all). 


Next Issue 
October’s DDJ is our annual 
Forth issue. Among the articles 
is a demonstration of how 
threaded subroutines let a 
68000 Forth approach the speed 
of compiled languages. We also 
have a_ special feature on 
hacking the AppleTalk network 
to add remote nodes via an 
ordinary RS-232 serial link. 








WRITE FASTER 
IN ANY LANGUAGE. 








If you develop software symbolically 
for any product based debug in the 
on an Intel microcontroller same high-level language 
Or microprocessor, includ- you wrote in without hav- 
ing the 80386, the unique ing to deal with machine - 
debug hooks in the Intel or hex code.Which means 
languages will help get the 80.386 reads as 80.386, 

job done faster. not 50 62 DO C5. 

In fact, when used with Because the location 
Intel debuggers and emu- of both code and data are 
lators, Intel development _ easily specified with our 
languages can provide locator, it is easier for you 


more debug data than any to develop ROM-based 
other high-level language. _ firmware. 


Debug hooks let you Since Intel languages 


produce identical object When you buy an Intel 
code regardless of the host, language, you have access 
you can write code at a to our customer hotline. 
PC running DOS, a VAX” So if you ever have a ques- 
VMS terminal,oran Intel tion you can talk directly 
Development gaa 

System. Softw 
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Different 
members applications specialist who 
ofthe same understands our products. 
design team can therefore And can give you the right 
choose the most effective | answers. Faster. 
combination of languages _To order today, or get 
and systems to get the job ~~ more information—includ- 





done faster. ing a free catalog of our 
Intel post-sales support development tools—call 
can also help you get toll-free 1-800-87-INTEL. 
the job done faster. We in- The sooner you call, the 
vented the microprocessor. faster youll get the job done. 
We know microprocessors w ® 
and languages for Intel intel 
architectures better than 


ANYONE else : © 1986 Intel Corporation 


*VAX is a registered trademark of Digital Equipment Corporation. 
Circle no. 179 on reader service card. 
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EDITORIAL 


Stone Age Computing 


his inonth’s ppv has, without 
‘Dae one of the most 
thought-provoking covers we've pro- 
duced. The mix of Og, the caveman, 
and a pseudocoded cave wall is in- 
congruous enough to provoke a 
hoard of questions in the reader's 
mind. What does that code on the 
wall really say? Why is Og staring so 
intently at the bottom line of the 
algorithm? And perhaps most im- 
portant of all: has the staff at pDbJ 
finally gone round the bend? 

Once you get past the fun cap- 
tions and lines about “recoding the 
wheel,’ however, there’s an aspect 
of Og’s situation that is jarringly simi- 
lar to the present day. Simply put: 
today’s personal computers often 
seem (despite their sexy new proces- 
sors and sophisticated designs) to 
be the product of Neanderthal think- 
ing. Again and again we're presented 
with products that are inexplicably 
primitive or crippled. 

Apple’s Macintosh, for example, 
seems to be a curious mix of high- 
tech and high-Bronze Age. Much of 
the design work in the Macintosh is 
wasted in a machine aimed at 
people only slightly more sophisti- 
cated than our friend Og. We have 
icons for all those computer users 
who are too stupid or lazy to read 
English and a single-button mouse 
for those unable to handle a key- 
board. To its credit, Apple has re- 
cently added an innovation for the 
Mac's most advanced users—the key- 
boards now have cursor keys. 

The problems of primitive think- 
ing and design are hardly an Apple 
monopoly, of course. Microsoft's Ms- 
bos, based on ideas from cp™M and 
Unix, is so primitive that it defies 
tasteful jokes. On the other hand, 
OS/2—with over a million lines of 
code yet to be debugged by adven- 
turous users—has tremendous po- 
tential for being as good a running 
gag as Microsoft’s Windows. Assum- 


' 
ing, of course, it actually runs. 
And then there’s the Intel archi- 
tecture.... Has anyone out there 


found a solution to switching back 


and forth between protected and 
real mode in the 80286? Being able 
to use both modes was going to be 
a major feature of the chip, but here 
we are—years after the introduc- 
tion—and the accepted method of 
switching modes is to reset the pro- 
cessor. The method used by Micro- 
soft in OS/2 (a reset request via the 
keyboard controller) seems to be the 
best kludge so far. That is, it’s pain- 
fully slow, but it works. You'd think 
there’d be something less, well, 
“Stone Age” than putting the chip 
to sleep for a couple of milliseconds. 


In flaming, it’s generally a good 
idea to keep your historical perspec- 
tive. This editorial was partially in- 
spired by a letter from one of our 
readers, John Dvorak. Always eager 
to stir things up, John questioned 
our ability to be nasty and rude. 
This editorial could be seen as a 
reply. Flaming is certainly a fun way 
to fill space in a magazine, but at DDJ 
we try to remember that the pur- 
pose is to shed light, not just to 
blow smoke. Or, as Mrs. Og said 
when she saw the wheel for the first 
time, “That's very nice, dear. But 
what's it for?” 


Spat 


Tyler Sperry 
editor 
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Our thanks to NASA for supplying this computer enhanced ultraviolet photo taken by Skylab IV of a solar prominence reaching out 350,000 miles above the sun’s surface 





Genius Begins With A Great Idea ... 


What follows is the time consuming task of giving 
form and function to the idea. 

That’s why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 





Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System ... .$199 
¢ optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options * Manx Aztec 8086/80x86 macro assembler 
e Aztec overlay linker (large/small model) * source 
level debugger ¢ object librarian ¢ 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System ...... $299 
¢ includes all of Aztec C86-p ¢ Unix utilities make, 
diff, grep ¢ vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
¢ includes all of Aztec C86-d ¢ Source for library rou- 
tines e ROM Support ¢ CP/M-86 support ¢ One year 
of updates. 


Aztec C86 Third Party Software 


A-large array of support software is available for Az- 
tec C86. Call or write for information. The following is 
a list of the most requested products: « Essential 
Graphics « C Utility Library « Curses ¢ Greenleaf Com- 
munication, General, and Data Window « Halo « Pan- 
el+ ¢ PC-lint « PforCe « Pre-C * Windows for C « Win- 
dows for Data C terp * db_Vista « db-Query « Phact « 
Plink-86 Plus « c-tree « r-tree « Pmate 


C compiler, 8080/Z80 assembler, linker, librarian, 
UNIX libraries, and specialized utilities. 


Aztec C ll-c (CP/M-80 & ROM)........ $349 
Aztec Cll-d (CP/M-80).............. $199 
Aztec C80 (TRS-80 3&4) ............ $199 











Manx Software Systems 
1 Inductrial Wav. Eatontown. NJ 07724 


Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional 
A price/feature/performance miracle. System in- 
cludes: optimized C ¢ 68000/680x0 assembler e 
68881 support © overlay linker ¢ UNIX and Amiga 
libraries * examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
¢ optimized C * 68000/680x0 assembler ¢ 68881 
support © overlay linker ¢ UNIX and Macintosh li- 
braries * examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p ¢ the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


Aztec C65 is the only commercial quality C com- 
piler for the Apple II. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
e runs under ProDOS ® code for ProDOS or DOS 3.3 
Aztec C65-d Developer...........:: $199 


e runs under DOS 3.3 ¢ code for DOS 3.3 


MS is a registered TM 


ware, C-tree TM Faircom, Inc., Wind 
Radio Shack, Amiga TM Commodore 


; . -86 + , P-Force TM Phoenix, db Vista T 
Se ee een ae tea pink Pe wardens for DATA TM Creative Solutions, Apple li, Macintosh TM Apple, Inc., TRS-80 TM 


Int’l.. Unix TM AT&T, Vax TM DEC, Aztec TM Manx Software Systems. 


An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ............0005 $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


C. PYNGG oii wks oa ae $75 


Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 


To become a user Call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.0.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


of Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd., 


M Raima Corp., C-terp, PC-lint, TM Gimpel Soft- 
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am often struck by 
the similarity be- 
tween editing a maga- 
zine and the plight of 
Billy Pilgrim in Slaugh- 
terhouse Five. Von- 
negut’s hero, you may 
recall, had become “un- 
stuck in time and 
began to experience 
the moments of his 
life—both past and , 
future—out of the normal sequence. 
A day spent in old age might be 
followed by a week of his youth, the 
shift coming without any apparent 
plan or warning. 

Editing a magazine is a lot like 
that. 

From the writer's perspective, 
things are pretty straightforward. 
You write and debug your program, 
write an article about it, and send it 
in to DbJ. After an awfully long time, 
you get a letter telling you if we 
liked the manuscript enough to 
print it. 

The view from the editor’s desk is 
a lot different. As I write this 
column, it’s the middle of July, and 
this piece is literally the last thing 
to go into the magazine before we 
ship it out the door in preparation 
for printing. As soon as I finish this 
column, there are neglected Forth 
articles to edit for the October issue. 
All this happens when I should be 
soliciting authors and articles for 
the December operating systems 
issue or at least checking on the 
progress of the authors and editors 
working on stuff for the November 
graphics issue. All this high-speed 
flipping through the calendar is 
enough to drive a normal person 
quite mad. Having spent so much 
time with computers, of course, I 
am already certifiable. . 

I mention all this chaos, not in an 
appeal for sympathy—although it 
would be nice if they'd quit sticking 
pins in the voodoo doll—but so that 
you'll understand why it sometimes 







































RUNNING LIGHT 


takes months to evalu- 
ate a manuscript. It's 
the old business of 
trying to, drain the 
swamp when the alliga- 
tors keep demanding 
your attention. Some- 
times a week will pass 
and I'll suddenly real- 
ize I haven't looked at 
the latest batch of man- 
| uscripts, or checked 
into the DDJ 5 forum on CompuServe. 
Worse, even after we've considered 
a piece, there’s a good chance it will 
have to be sent off to a referee or 
Technical Editor. 

Things are getting better, and 
were speeding up the evaluation 
cycle. Ron Copeland has joined our 
staff as Associate Editor, and has 
already been an immense help both 
in tracking down manuscripts that 
were lost on my desk and in routing 
them to the proper referees. Richard 
Relph, who coordinated our infa- 
mous giant C Compiler roundup 
two years running and has written 
a number of articles for us, has just 
joined the staff as a Technical 
Editor. By the time you read this, 
our response time on manuscripts 
should have dropped to less than a 
month. 

So, to those of you who got caught 
in the old delay loops, my apologies. 
For those of you who haven't sent 
in an article or query, there’s no 
longer any excuse. If you've done 
something particularly neat or 
solved a particularly vexing prob- 
lem, let our readers know about it 
by submitting an article. If you want 
to discuss an article idea with me, 
give me a Call at (415) 366-3600. You 
can also send me e-mail via Com- 
puServe (76703,4266), or BIX (with 
the clever nom-de-baud of ‘‘tyler’). 


Tyler Sperry 
editor 
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Intel Needs Help 

“From the January-February issue of 
Solutions, a public-relations magazine put 
out by Intel Corp., we learn that Intel has 
prepared a Support Library for their 8087 
numeric co-processor. It ‘consists’ of the 
function library, a decimal conversion 
module,...and a full 8087 software 
emulator for debugging without the 8087 
component. The library...supports the 
proposed IEEE Floating Point Standard. 

“Well, that’s a lot of software (even if 
the 8087 does do most of the work), so 
we suppose that Intel’s asking price of 
$1,250 (gulp!) is justified. But is the 8087 
so hard to work with that you need 
twelve hundred dollars worth of interface 
code? Surely not! Obviously, Intel doesn’t 
know how to sell chips. Let’s show them 
how it’s done: let's put some 8087 knowl- 
edge into the public domain so that ex- 
perimenters can use the device. Many 
readers working with it? What kind of 
programming does it take?’—D. E. 


Cortesi, Dr. Dobb’s Clinic, DDJ, June 1982. 


Ten Years Ago in DDJ 

“OLDIE BUT GOODIE AVAILABLE 

“Our glorious(?) Editor spent much of 
a decade (no pun intended) in mutually 
supportive relationships with the 8- 
Family of Maynard, and has long had a 
warm spot in his heart for these quaint 
machines. (For the younger generation 
and the uninitiated, this eccentric dis- 
cussion concerns one of the first—and, 
for many years, the most popular—mini- 
computers: the PDP-8 manufactured by 
Digital Equipment Corporation (DEC) in 
Maryland, MA.) 

“Back in the Summer of '76, the blos- 
soming of DbJ, the Computer Faire, the 
Silicon Gulch Gazette, the ACM, teaching 
at Stanford, NCC in Dallas, PC’77....and 
the list goes on and on. And our Editor 
has had little time to do more than turn 
his old friend on from time to time, and 
watch it glow and blink. Lest this old 8/1 
feel spurned and lonely —for it is an 
honorable machine with a strong Puritan 
work ethic, not accustomed to having its 
diodes idle—Jim is seeking a good home 
for it. Price for the whole system FOB 
Menlo Park, California is $4,000.’—Jim 
Warren, DDJ September 1977. 


Dr. Dosps Tournatof 


ret gl 


Running Light Without Overbyte 


Dr. Dobb’s Journal, September 1987 





The Fastest C 


We challenged Microsoft-C to a C compiler duel, measuring compile, link, and execution 
times. They wouldn’t take on Optimum-C — they own it and they know how fast it is! 


DATALIGHT’s new Optimum-C compiler 
can make your programs run up to 30% faster 
than other compilers. That’s because it’s a 
true optimizing compiler. While many 
manufacturers may claim to have optimizing 
compilers, they can’t stand up against 
Optimum-C. Their optimizers look at only 
one or maybe a few statements at a time; 
Optimum-C takes in the BIG picture, looking 
at an entire function at once. 

Optimum-C tunes each function to the 
machine by maximizing register usage while 
minimizing memory usage. Optimizations 
performed include: global common subex- 
pression elimination, register allocation 
by coloring, copy/constant propagation, 
loop induction variables, and dead code 
elimination. 


Develop Programs Faster 


To save compile time during code develop- 
ment, you can turn off the optimization. 
Then, when your program is developed and 
debugged, you can turn on the optimization 
and recompile for the fastest execution speed. 

Also included to help you with code 
development is the EZ interactive editor/ 
environment. With EZ you can compile, link, 
execute and quickly correct any syntax errors 
by letting EZ show you the erroneous source 
line and error message. 


Library Source Code and Other Extras 


Top speed is only one of the advantages you 
get with Optimum-C. You also get complete 
library/startup source code (at no additional 
charge) support for 4 memory models 
(including large model), inline 8087 code, and 
standard object files. Plus a complete UNIX 
style MAKE program and a fast screen I/O 
package. 


Speed ROM Development 


It used to be that to develop ROM code you 
had to purchase a compiler from one manu- 
facturer, a debugger from another, and other 
tools from still another. DATALIGHT has 
eliminated all the hassle by providing all the 





support tools necessary for ROM 
development. 
BENCHMARKS 
Sieve Pointer Optimize 
Optimum-C 49.3 45.7 00.9 
MS C 58.6 90.2 38.6 
Turbo-C 62.1 49.0 40.2 


ROM-it, the Unique 
ROM Development Kit 


Only DATALIGHT offers you the kind of 
support you'll find in Rom-zt, the new ROM 
support package. This unique package speeds 
up the delivery of your ROM application by 
providing many program elements that you 
used to have to write for yourself. 

Rom-zt includes a startup routine that 
can take an 8086 from restart to C program 
execution by setting up segment registers, 
stack, heap, copying initialized data from 
ROM to RAM, and zeroing uninitialized 
data. The BLAZE locator/Intel hex file 
generator can locate code and data anywhere 
in memory, while performing checks for 
ROM overruns, illegal data access, and 
complete program location. The ROMable 
library contains the ROMable portions of the 
Optimum-C library, with support for inter- 
rupt handling in C, reading and writing I/O 
ports, and full math support. 


Debug ROMed Code from the PC 


You can download, execute, and debug 
programs on the target system from your PC, 
with Remote-DSD. This debugger is a sym- 
bolic windowing debugger that shows you the 
C source code (on the PC) that is executing 
on the target system. You can view and change 
global variables on the target system, modify 
data, set breakpoints and watch registers and 
flags. 


Try Optimum-C risk free 


Call us TOLL FREE today for your copy of 
Optimum-C. You will also receive free* “C: 
A Programming Workshop”’ to get you 
started with C. To find out how we can help 
you get your ROM projects completed on 
time call us. 


Optimum-C w/ C Tutorial $139 
Rom-it $159 


Add $7 for shipping in US/$20 outside US 
COD (add $2.50) 
Not Copy Protected 


ORDER TOLL-FREE TODAY! 
1-800-221-6630 









ATTENTION OEMs! 


Contact us regarding arrangements. 


*Limited offer available exclusively to readers who 
purchase directly from Datalight. 
Microsoft and MS-DOS are registered trademarks 
of the Microsoft Corporation. Turbo C is a regis- 
tered trademark of Borland International. 
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Magazine Reviewers Shocked by 
DATALIGHT’s Performance... | 


“Reviewing this compiler was quite a surprise 
for us. For such a low price, we were expecting 
a “‘lightweight” compiler. What we got was 
a package that is as good as or better than 
most of the ‘“‘heavyweights.” Datalight C 
implements a complete C language. It also 
compiles quickly, doesn’t take up much disk 
space, and looks impressive in the bench- 
marks.” 


DR. DOBBS, August 1986 


‘This is a sharp compiler!... what is impres- 
sive is that Datalight not only stole the com- 
pile time show completely, but had the fastest 
Fibonacci executable time and had excellent 
object file sizes to boot!” 


COMPUTER LANGUAGE, February 1986 


Optimum-C Version 3.08 


NEW! 
EZ Interactive Development Environment 


NEW! 
Inline 8087/80287 Math Support 


Full UNIX System 5 C language plus 
ANSI extensions 

Fast/tight code via powerful 
optimizations including common sub- 
expression elimination 

DLC one-step compile/link program 
Multiple memory model support 
UNIX compatible library with PC 
functions 

Compatible with DOS linker and 
assembler 

Third-party library support 
Automatic generation of .COM files 
Supports DOS pathnames, wild cards, 
and Input/Output redirection 
Compatible with Lattice C version 3.x 
Interrupt handling in C 

Debugger support 

ROMable code support/start-up source 
Full UNIX MAKE Program 

Tools in Source Code: cat, diff, ... 


MS-DOS® Support Features 


Mouse support 
Sound support 
Fast screen I/O 
Interrupt handler 


Datalight 


17505-68th Avenue NE, Suite 304 
Bothell, Washington 98011 USA 
(206) 367-1803 








announced the 


On April 2,1987 
IBM and Quarterdeck 
next generation 











In personal computing. 





Ir one sweeping announcement from 
Miami Beach and New York City, 
IBM established new standards of 
performance for personal computers, 
with its new Personal System/2.™ 
Quarterdeck was there with IBM and 
simultaneously helped establish new 
standards for multi-tasking and multi- 
windowing. 

We were there for them then. We’re 
here for you now. 

If you use two or more software 
programs, if you use a PC- compatible 
machine, if you own a new 80386 
computer, if you've just bought one of 
the new Personal System/2 computers, 
or if you've tried Microsoft Windows 
and were disappointed but still need the 
power of graphics programs, DESQview 
2.0 is the answer. 

Consider this. InfoWorld voted 
DESQview’s earlier version 1986 Prod- 
uct of the Year. SoftSector gave it the 
Editor's Choice Award. In PC Tech 
Journal's “System Builder Contest” at 
Comdex Fall it was voted best operating 
environment. And 450,000 dedicated 
users On four continents have voted yes 
with their dollars. 

The new DESQview 2.0 is an order of 
magnitude better. 

This unique software program 
enhances the power of your personal 
computer and makes it more convenient 
to use. It still gives your PC the power 


Introducing DESQview 2.0. Improving the 
past and ready for the future right now. 


of many PCs. It still does windows. 
It still multi-tasks. It still breaks the 
DOS 640K barrier. It still transfers data. 
It still dials your phone. It still gives 
you menus for DOS. It still remembers 
your keystrokes (macros). It still runs 
your existing programs and your new 
programs soon to come. In fact now 
you can even run Windows-, GEM-, and 
Topview-specific programs too. And 
with 386 machines and our Expanded 
Memory Manager it still becomes a 
386 control program, but now you can 
run text and CGA graphics programs 
in background. 

The new DESQview 2.0. 

For us it’s the next logical step. 
For you it’s windows of opportunity. 


Rush me DESQview 2.0! Today! 


No. of Copies Media 342"/514" Product 












Shipping & Handling USA Sr, abe ea 
Outside USA | $ 10.00 
| Sales Tax (CA residents) SSRN eS pale eae ae | 
! sere, Led | 
Payment: L)Visa LJIMC [CJAMEX [)Check Enclosed 
Credit Card: Valid Since _____/ Eapiration. 52 / 
| Card Number: | 
| Credit Card Name | 
Shipping Address 
ita ee ech le ali adaeciceecaienl wh ed SS Zip ____ Telephone | 


Mail to: Quarterdeck Office Systems, 150 Pico Boulevard, Santa Monica, CA 90405 





DESQview 2.0 











SYSTEM REQUIREMENTS 

* IBM Personal Computer and 100% 
compatibles (with 8086, 8088, 80286 or 80386 
processors) with monochrome or color 
display; IBM Personal System/2 * Memory: 
640K recommended; for DESQview itself 
0-145K » Expanded Memory (Optional): 
expanded memory boards compatible with 
the Intel AboveBoard; enhanced expanded 
memory boards compatible with the AST 
RAMpage ° Disk: Two diskette drives or one 
diskette drive and a hard disk * Graphics Card 
(Optional): Hercules, IBM Color/Graphics 
(CGA), IBM Enhanced Graphics (EGA), 

IBM Personal System/2 Advanced Graphics 
(VGA) * Mouse (Optional): Mouse Systems, 
Microsoft and compatibles * Modem for 
Auto-Dialer (Optional): Hayes or Compatible 
* Operating System: PC-DOS 2.0-—3.3; MS-DOS 
2.0—3.2 * Software: Most PC-DOS and MS-DOS 
application programs; programs specific to 
TopView 1.1, GEM 1.1 and Microsoft Windows 
1.03 * Media: DESQview 2.0 is available on 
either 5¥4” or 3¥2” floppy diskettes 


Retail Price ea. Total | 


















NOTE: If you own DESQview call us for a special upgrade offer, or send in your DESQview 
| registration card and we'll send you upgrade information. 





™ 


Quarterdeck 
Quarterdeck Office Systems * 150 Pico Boulevard, Santa Monica, CA 90405 « (213) 392-9851 


DESQview is a trademark of Quarterdeck Office Systems. AboveBoard is a trademark of Intel Corporation. Hayes is a trademark of Hayes Microcomputer Products, Inc. IBM, PC, Personal System/2 and TopView are trademarks 
of International Business Machines Corporation. Microsoft Windows and MS are registered trademarks of Microsoft Corporation. Mouse Systems is a trademark of Metagraphics/Mouse Systems. RAMpage is a trademark of 
AST Research, Inc. GEM is a trademark of Digital Research. Hercules is a trademark of Hercules. 
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. brilliant breakthrough 


The most 





bal SOL oe a ey 


ain ihe history of SOL. It’s the one 
unique SQL solution that helps 
-__ programmers break through to even 
higher levels of productivity. Power- 
___ ful yet easy to use, XQL minimizes 
your coding time and lets you focus 
_ on building better applications. 


- XQL extends the power of 

_ Btrieve, SoftCraft’s high-perfor- 

“mance file manager, by allowing ac- 

-__cess to multiple records at a time. It 
__ frees your application from physical 

_ file characteristics by providing true 

relational capabilities with data in- 

dependence, data descriptions, data 

| integrity: ands security. 


XQLs three interface levels are 


major advance in SQL technology. 
The first two levels, XQOL primitives 
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SOL statemen 


nience, are callable 
subroutines from 
BASIC, Pascal and C. The third 
level lets you enter SQL statements 
interactively without ever having 

to write a program. 

XQL’s extensive DBMS fea- 
tures let you access data by name. 
Field order is independent of physi- 
cal location within the Btrieve 
record. Only records that pass your 
restrictions are returned—in the sort 
order you specify. Fields can be com- 
puted from other fields or constants. 
And you can manipulate composite 
records built from multiple, joined 
Btrieve files. 







XQL offers all 
the performance and 
reliability you’ve come to 
expect from Btrieve, includ- 
ing LAN support, fault 
tolerance, comprehensive 
documentation and expert 
technical support for trouble- 
free software development. 


- Plus, you never pay royalties on 


your XQL applications. 


Put the latest innovation in SQL 
technology to work for you. 


Contact SoftCraft. 





SoftCraft 


ANOVELL COMPANY 
P.O. Box 9802, #917 
Austin, Texas 78766 

(512) 346-8380 Telex 358 200 


XOL, $595; Brrieve, $245; multiuser Btrieve, $595. XQL requires Btrieve and 


PC-DOS or MS-DOS 2.X or 3.X. XQL is a trademark and Btrieve is a registered trademark of SoftCraft, Inc. 
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Dvorak Responds 

Dear DDJ, 

I was greatly amused (Swaine’s 
Flames, June 1987) by the rambling 
cockroach-like insect that supposed- 
ly jumped out of Swaine’s computer 
and onto the keyboard late one night 
while Mike was puking his guts out 
after having been to one of those du- 
bious and fashionable sushi bars 
found far too often south of Palo Alto 
where fresh fish is a rarity and 
where the wallpaper, when exam- 
ined closely, turns out to be posted 
health department notices’ of 
violation. 

No doubt was left in the reader’s 
mind that the whole incident was a 
hallucination of grand pro- 
portion or (and we all know 
that this is the case) the col- 
umn was a gimmicky idea 
possibly dreamed up while 
suffering the ill effects of poi- 
soning and designed to solve 
one of two problems. They 
are: 1) how to make a point 
and blame someone (or some- 
thing) else for making the 
point; 2) how to avoid the rav- 
ages of mean copy editors. 
Since the second point only 
applies to the profession of 
writing, one must assume 
that the first point applies. 

Now obviously some asser- 
tion I made sometime when 
and who knows where struck 
a nerve inside the Dr. Dobb’s 
editors cage. Thus the essay 
by the roach about me. Unfor- 
tunately, for Mike and the 
crew, my point concerning 
outspokenness was only reaf- 
firmed by the technique of 
using an imagined insect to 
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express an opinion. It surely wasn’t 
done to avoid being nasty but only 
done to avoid confrontation. That’s 
the problem (if there is a problem), in 
my opinion, with Dr. Dobb’s—a cer- 
tain inexplicable timidity mistakenly 
interpreted by some as politeness. 

Now I advise you to look at my cur- 
rent benefactor and publisher, PC 
Magazine. The commentary in there 
is sometimes downright rude. Edi- 
tors even have the gall to make Edi- 
tors Choices, a concept that flies in 
the face of advertising theory. Yet 
the magazine is as fat as imaginable 
and growing in circulation like noth- 
ing I've ever seen. Why? Because to- 
day’s reader is bored and prefers to 
read copy written with a sharp edge. 
There is too much dreary stuff out 
there taking up too much space in 
our lives. 

The editors of Dobb’s, I know for a 
fact, have this same ability to pro- 
duce enjoyable vitriol but prefer to 
be well liked instead. The out-of- 
place and gratuitous swipe at me by 
the verbose roach claiming I was an 
incarnation of Max Headroom is a 
good example of the kind of nasti- 
ness that lurks within the Dobb’s 





Lather; 
Rinse; 
(repeat) 
Lather; 
Rinse; 
(repeat) 
Lather: 


Harold applies algorithmic logic 
to everyday situations 







staff. 

While the entire piece was a gem 
of creativity insofar as finding some 
unusual way to couch an essay, I still 
maintain that using a bug to make a 
complaint is symbolic not of dignity 
but of a certain kind of shyness that 
weakens the impact of the printed 
word. Then again, the whole story 
may be true. If so, I advise Swaine to 
vacuum more often. 

John C. Dvorak 

PC Magazine 

Ziff-Davis Publishing Co. 

One Park Ave. 

New York, NY 10016 


Michael Swaine replies: 

Thanks, John. It’s an honor to get a 
lesson from the leading practitioner 
of no-nonsense, outspoken, sharp- 
edged computer journalism. By the 
way, I enjoyed your recent PC Maga- 
zine column tracing the origin of the 
word nerd back to Dr. Seuss. 


XOR Chains 

Dear DDJ, 

David Cortesi’s article on XOR chains 
(June 1987) is an excellent example of 
isolating information in modules. 

I disagree with one of his 
conclusions,though: the Insert 
procedure can do the same 
damage to a list as the Delete 
procedure can. When two 
different Scans each insert an 
item into the same position in 
the list, the list structure is 
destroyed. 

For example: let Scans P 
and O each have item A as 
next and item B as prev. Then 
Insert (C,P) will insert an item 
C between A and B in the list. 
Scan P will correctly show 
item A as next and item C as 
prev, but Scan O will still treat 
items A and B as adjacent 
items. Calling Insert (D,Q) 
now will cause Insert to try, 
incorrectly, to XOR B to the 
link in A as if they were still 
adjacent items. This XOR oper- 
ation and the XOR of A to the 
link in B will leave A and B 
with invalid links. 

This flaw in Insert can be 
corrected by having Insert 
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Sa alll 


LETTERS 


(continued from page 12) 


check if the elements in the Scan are 
still adjacent before inserting the 
new item. 

Andrew Ginter 

208-21 Ave. NW 

Calgary, AB 

Canada T2M 1J3 


Dear DDJ, 

In his article Mr. Cortesi mentions 
clearing a register in assembly lan- 
guage by XORing it with itself. It also 
might be worth mentioning that you 
can swap two fields quickly without 
using a work area via use of the XOR 
command thrice: 


XC FIELD1,FIELD2 
XC FIELD2,FIELD1 
XC FIELD1,FIELD2 


This will put the contents of FIELD1 
into FIELD2 and vice versa. Note that 
the fields must be of equal length. 
I'm sure that this also works just as 
quickly in other languages because 
typically Boolean algebra commands 
are built-in commands in almost any 
processor. 

Jack Gillette 

30 Harvest Rust Ct. 

St. Charles, MO 63303 


Dear DDJ, 

David E. Cortesi’s fine article present- 
ed your readers with some valuable 
information. However, the algorithms 
he describes are not the simplest possi- 
ble because he uses an unnecessarily 
complicated logical tautology. The re- 
lation he used in his article was: 


(A XOR B XOR C) XORBXORC=A 


This relation is actually one case of a 
more general relationship, namely: 


(X_1 XOR X_2 XOR ... XOR X_N) XOR 
X_2XOR...XOR X_N = X_1 


I'm not sure if this general relation is 
of much value, but its simplest form 
is more suitable for the task of storing 
both front and back pointersina single 
field. Thesimplest form merely says: 


(A XOR B)XORB=A 


Nowhere in the algorithms that 


14 


Mr. Cortesi describes does he require 
the fact that his link field stores the 
address of the current item in the list. 
With this in mind, his implementa- 
tion can be improved with the fol- 
lowing changes: 


1. For an item in the list, if A is the 
address of its predecessor and B is the 
address of its successor, then set the 





ever, this does not lock you into a list- 
type structure. I am submitting a 
follow-up article entitled “The XOR 


Chain Revisited” that describes how 


such links can be used effectively in 
manipulating tree-type data 
structures. 

Bennette R. Harris 

231 S. Janesville St. 

Whitewater, WI 53190 


single link word W of the item to: 


W = A XORB 


You can now recover B as (W XOR A) 


or A as (W XOR B). 


Mr. Harris’ article begins on page 36 in 
this issue. —eds. 


68000 Dynamic Halt 
Dear DDJ, 


2. The stepping routines GoFwd and | The FOR TOP to BOT loop in Brian An- 
GoBak should be modified to remove | derson’s Viewpoint June 1987) will 


the use of the current item address. 


For example: 


Void GoFwd(s) struct Scan *s; 


struct Item “i; 
be 6 Saris or 
s— >next— >link; 


Ss > prior = s—>next; 


go >next =i; 


3. The insertion and de- 
letion routines Insert 
and Delete should be 
modified in a similar 
fashion. For the sake of 
accuracy (and to correct 
some minor errors in 
the original article), I 
have given each of these 
in full in Example 1, 
right. 

The changes. de- 
scribed in Example 1 
amount to a savings of 
one XOR operation per 
call to any of these four 
routines. Although this 
may not seem like 
much, it can makea sig- 
nificant difference in 
the time required to 
process a large list. Of 
course, the effect on 
code size is minimal. 

Mr. Cortesi correctly 
asserts that traversing a 
data structure linked in 
this fashion requires the 


only reach BOT in the unlikely event 
that TOP = BOT! Else we have yet an- 
other fine Dynamic Halt (aka endless 
loop). CLR.B 0(A0,DO) does not alter 
value y DO. So did your typesetter 
omit ADDQ,W #1, DO before the loop 
branch? Brian would never do such a 
thing (and yet his line numbers seem 

(continued on page 138) 


void Insert(i,s) 
struct Item *i; 
struct Scan *s; 
{ 
if (AtHead(s) ) 
S——>base—>head =i; 
else 
S->prior——>link Xor= (i Xor S——>next): 
if (AtTail(s)) 
S—>base—>tail =i; 
else 
S—>next—>link Xor= (i Xor S- > prior): 
i-~>link = s—>prior xor s-——-next:; 
S—>prior =i; 
} 
void Delete(s) struct Scan *s- 
struct Item *i; 
if (AtTail(s)) return; 
i = §— —next — > 1ivik sor S- price: 
if (AtHead(s) ) 
S—->base—->head =i; 
else 
S—>prior—>link Xor= (s—>next xor a) - 
if (i ==Nil) 
s— > base >tail = S- ->prior-: 
else 
i—>link Xor= (s—>next xor S-—>prior)> 
Dropitem(s—>next):; 
S—>next =i; 


} 


addresses of two logical- Example 1: Modified insertion and deletion 
ly adjacent items. How- routines for “The XOR Chain” 
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RESIDENT EXPERT Pop-up Reference Guides... 


THE POP-UP REFERENCE 
REVOLUTION BEGINS 





_ How mritich development time could you save if 


you never had to open another PC language or 
technical reference manual again? What if you 
could just point at a compiler keyword, assembly 
instruction, or function name on your screen and 
with a keystroke have complete, authoritative 
information about language syntax, operands, 
parameters, examples, and much more? 


INTRODUCING THE RESIDENT 
EXPERT SYSTEM 


A growing library of comprehensive, disk 
resident reference guides about the PC and your 
favorite PC languages. All available instantly 
through our unique memory resident pop-up 
access system. 


VIRTUALLY EVERYTHING YOU 
NEED TO KNOW 


Each of our Compiler Reference Guides 
contains virtually everything you need to know 
to program with your preferred implementation 
of your favorite language. Language syntax, all 
library functions, complier directives, and error 
codes are thoroughly documented. 


Our PC Programmer's Reference Guide 
documents every PC (and AT) processor 
instruction and every BIOS and DOS service 
interrupt. You'll also find tables of keyboard 
_ codes, line drawing, ASCII, and IBM character 
‘sets, and much more. 


THE SPECIALIST’S LIBRARY 


Your compiler is unique. That's why our 

reference guides are specialized...each one 

designed for a particular vendor’s language 
implementation. 
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QUICK DRAW ACCESS SYSTEM 


Point-and-shoot...just place the cursor over any 
term on your screen. Chances are we've got it 
fully detailed in one of our data bases. 


Fully cross indexed...if the instruction or library 
function you re using isn't quite right, our related 
topics cross index can help you find a better one. 


Multiple volumes on line...you can have one or 
a dozen of our pop-up reference guides on 
line...a complete library available instantly. 


THE INFORMATION YOU 
NEED...WHERE YOU NEEDIT 


Our pop-up shell varies its size and shape 
dynamically, only taking as much space on your 
screen as it needs and it mever covers your 
working area. You can see your work and our 
reference data at the same time. 





A COMPLETE LIBRARY...STILL 
ONLY A BEGINNING 


At Santa Rita, our commitment is to provide the 
most accurate, extensive selection of PC 
language reference materials available. If you 
don’t see one of our guides for your favorite 
language or compiler listed below don’t worry, 
we re probably working on it! 

PC Programmer’s Reference Guide .. . $59.00 
(with Assembly Language Guide) 


Borland turbo Cvo......... . 59.00 

Borland Turbo Pascal (3.0 and below). .... 59.00 
(with Graphics & Numerical Methods Toolbex) 

Borland Turbo Prolog (/./ and below)... . . 59.00 
(with Proiog Toolbox) 

Lattice C Compiler (3.2 and below). ...... $9.00 

Mark Williams LetsC (4.0 and below)... .. 59.00 

Microsoft C Compiler (5.0 and below)... .. 59.00 


SantakRita 


For the location of your nearest Santa Rita 
Software dealer, or to order direct, call us at 
1-214-727-9217. We'd like to hear from you. 


Santa Rita Software 
1000 E. 14th Street, Suite 365 
Plano, Texas 75074 


The RESIDENT EXPERT System 
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and delivery tool that already has a 


— Complete LISP development environment 
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— “Getting Started” tutorial-style manual 


Personal Consultant Images 
— Optional add-on package to PC Plus (3.0) 
— Allows integration of “active images” into 





what serious ex 
Power tools. 


Pistons all the expert system devel- 
opment tools available for personal 
computers today, none deliver the 
power and flexibility of TI’s Personal 
Consultant series. 

Personal Consultant Easy is ideal for 
getting started, and is upwardly com- 
patible with the higher functionality of 
PC Plus. For experienced developers, 
Personal Consultant Plus and its 
optional add-on enhancements, Online 
and Images, were designed to help solve 
a broader range of complex problems. 


PC PLUS 


Interfaces with: 
¢ Lotus 1-2-3 


¢ DOS files 
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Personal Consultant Plus. Full power 
for an affordable price. 

At $2,950, PC Plus has proven to be 
one of the richest and most flexible 
problem-solving tools available for the 
development of complex knowledge- 
based systems. Designed to take 
advantage of today’s more powerful 
286/386 DOS-based computers, or TT’s 
Explorer™ Symbolic Processing System, 
the new 3.0 version of PC Plus provides 
powerful standard features and a contin- 


uing growth path with the addition of 
either PC Images or PC Online, or both. 


Personal Consultant Images. Picture 
an expert system with interactive 
graphics. 

At $495, PC Images enables developers 
to create knowledge-based applications 
that incorporate complex graphical 
“active images.” User-interactive dials, 
gauges, forms and selection images pro- 
vide a more exciting visual data input 
and output style. 












knowledge bases 

— Interactive dials, gauges, forms and selection 
images 

— Multiple images can be combined on same 
screen 

— “Getting Started” tutorial-style manual 


Personal Consultant Online. The 
expert system as part of the process. 
At $995, PC Online allows the devel- 
oper to design expert systems which 
interact directly with process data, as 
opposed to input from a human oper- 
ator. Designed for intelligent process 
monitoring applications, this optional 
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package helps deliver expertise that is 
“online all the time.” 


Application delivery as flexible as the 
tools themselves. 

Delivery can be in LISP for flexibility, 
or “C”* for maximum speed and porta- 
bility. Our “C” options support either 
stand-alone or “embedded” knowledge 
bases. Options are available for DOS- 
based PCs, TI’s Explorer, and DEC’s 


VAX™ line of multi-user minis running 


under VMS™. 
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Active Images 


“Texas Instruments has done more 
than any other company to educate 
people about AI, to popularize it, and 
to make useful AI tools available at 
reasonable prices.” 

— Jim Seymour, PC Magazine. 


Technical support, training courses and 
Knowledge Engineering Services are 
available for the Personal Consultant 
products. If you have a question about 
any of our expert system power tools, we 
have the answer. 


Pick up the phone and gain a powerful 
advantage. 

Call 1-800-527-3500 for technical 
overviews of our products and a PC Plus 
case histories brochure which details 
how our power tools are being put to 
work today. 
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TEXAS 
INSTRUMENTS 


ARTICLES 


How Many Ways 





Can You 


Draw a 


Circle? 


by James F. Blinn 


like to collect things. 
When I was young I col- 
lected stamps; now I 
collect empty margarine 
tubs—and algorithms for 
drawing circles. Because this 
is an algorithms issue, I will 
restrain myself from talking 
about stamps or margarine 
tubs; instead, I'll show you my album of circle-drawing 
algorithms. 

It's traditional at this point in any discussion of geome- 
try to drag in the ancient Greeks and mention how they 
considered the circle to be the most perfect shape. Even 
though a circle is such an apparently simple shape, it is 
interesting to see how many essentially different algo- 
rithms you can find for drawing the Greek’s favorite 
curve. 

I will be brief about some pretty obvious techniques to 
leave space to play with the more interesting and subtle 
techniques. Note that many of these algorithms might be 
ridiculously inefficient but are included to pad out the 
article. (OK, OK—they’re actually included for 








James F. Blinn, 195 South Wilson, Apt. 8, Pasadena, CA 
91106. Dr. Blinn has been actively involved in computer 
graphics for the past 19 years. Since 1978 he has been at the 
Jet Propulsion Laboratory of the California Institute of 
Technology, producing animations depicting various space 
missions. He also produced computer graphics effects for 
the PBS series “COSMOS.” He current! y teaches courses in 
computer graphics at Cal Tech and at the Art Center College 
of Design in Pasadena. 

This is a revised version of an article published in the 
August 1987 issue of IEEE Computer Graphics and Applica- 
tions. © 1987 IEEE. 
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A comprehensive roundup 


of circle-drawing algorithms 





completeness.) 

I'm not sure where I first 
heard of some of these. I will 
cite inventors where 
known, but let me just 
thank the world at large 
in case I’ve missed any- 
body. 

A word about the pro- 
gramming language I use—I am not using any formal 
algorithm display language here. These algorithms are 
meant to be read by human beings, not computers, so the 
language I present is a mishmash of several programming 
constructs that I’m sure will be perfectly clear to 
you. 

The collection can be categorized by the two types of 
output—line endpoints and pixel coordinates. This comes 
from the general dichotomy of curve representation— 
parametric vs. algebraic. 


Line Drawings 

First, I'll look at line output. All the algorithms in this 
section operate in floating point and generate a series of 
X,Y points on a unit-radius circle centered at the origin. 
You then play connect the dots. 


1. Trigonometry 
Evaluate sin and cos at equally spaced angles: 


MOVE(1,0) 

FOR DEGREES=1 to 360 
RADIANS=DEGREES*2*3.14159/360. 
DRAW(COS(RADIANS),SIN(RADIANS)) 


This has to evaluate the two trig functions at each loop, 
ick. 
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2. Polynomial Approximation 

You can get a fair approximation of a circle by evaluating 
simple polynomial approximations to sin and cos. The 
first ones that come to mind are the Taylor's series: 


COS a = 1 la? +( a’ 
sin a = a—(b)g? -+( Lg; 


These require fairly high-order terms to get very close. 

A better approach is to fit lower-order polynomials to 
the desired endpoints and end slopes. This is effectively 
what happens with various commonly used Bezier 
curves—for example, the four control points (1,0), 
(1,0.552), (0.552,1), (0,1) describe a good approximation to 
the upper-right quarter of a circle. You can get the other 
three quadrants by rotating the control points. 

When transformed to polynomial form, the first quad- 
rant is: 


x(t) = 1-1.344t2 + 34483 
vit) = 1.656t-.312t? -.344t° 


with the parameter t going from 0 to 1. 


MOVE(1,0) 

FOR T=0TO1BY.01 
X =1+4+ T'T%-1.3444+T*.344) 
Y = T*(1.656-T*(.312+ T*.344) 
DRAWIX,Y) 


This makes a pretty good circle—the maximum radius 
error is about 0.0004 at t=0.2 and t=0.8. 


3. Forward Differences 
Polynomials can be evaluated quickly by the technique 
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known as forward differences. Briefly, for the polynomi- 
al: 


ft) =fot fit + fat? + fot? 


if you start at t=0 and increment by equal steps of size 6, 
the forward differences are: 


Af = fid + fo82 + fa? 
A Af = 2f 262 + 6f36° 
A AAf = 6f35 


Then, for polynomials stepping in units of 0.01: 


X=1; DX=-.000134056; DDX = -.000266736; DDDX= .000002064 
Y =0; DY= .016528456; DDY = -.000064464; DDDY = -.000002064 
MOVE(X, Y) 
FOR I=1 TO 100 
X=X+DxX; DX=DX+DDx; DDX=DDX+ DDDX 
Y=Y+DY; DY=DY+DDY; DDY=DDY + DDDY 
DRAWIX,Y) 


Trust me, I’m a doctor. If you don’t believe it, look up 
forward differences on page 328 of Newman and 
Sproull—I’m not going to do all the work here. 

Notice the number of significant digits in the constants. 
It might seem as though that many digits would require 
double precision, but in practice the accumulated round- 
off error using single precision is less than the error due 
to the polynomial approximation. 


4. Incremental Rotation 

Let’s back off from the approximation route and try an- 
other approach. Start with the vector (1,0) and multiply it 
by a one-degree rotation matrix each time through the 
loop: 
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DRAWING CIRCLES 
(continued from page 19) 





DELTA = 2*3.14159/360. 

SINA =SIN(DELTA) 

COSA = COS(DELTA) 

X=1; Y=0 

MOVE(X, Y) 

FOR I~1 TO 360 
XNEW = X*COSA - Y*SINA 
Y = X*SINA + Y*COSA 
X = XNEW 


5. Extreme Approximation 

If the incremental angle is small enough, you can make 
the approximations cos a=1 and sin a=a. The number of 
times through the loop is n=2z/a, or conversely, the an- 
gle is a=22/n, depending on which you want to use as 
input: 


A=.015; N=2*3.14159/A 
X=1; Y=0 
MOVE(X, Y) 
FOR I=1TON 
XNEW = X- Y*A 


Y=X*A+Y 
X = XNEW 
DRAWIX,Y) 


But there’s a problem. Each time through the loop, you 
are forming the product: 


neat y. new) = (Xold y old) G 1 ) 


The matrix is almost a rotation matrix, but its determi- 
nant equals 1+a’. This is bad. It means that the running 
(x,y) is magnified by this amount on each iteration, so 
what you get isa spiral that gets bigger and bigger. How to 
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fix this?—introduce a bug into the algorithm. 


6. Unskewing the Approximation 

Because vector multiplication and assignment don’t oc- 
cur in one statement, you had to calculate y carefully, 
using the old value for x. Suppose you were dumb and did 
it the naive way: 


A=.015; N= 2*3.14159/A 
X=1; Y=0 
MOVE\X, Y) 
FOR I=1TON 
X= X-Y*A 
YY = x°A +-¥ 
DRAW(X,Y) 


Now, what is the effect of this? Really what you get is: 
Xnew = Xold—Y. olda 
Ynew = Xnew & + Yold = Xold & =f Yold (1-a?) 


In other words: 


LS iii e how? = Xoad; y old) a a 
-a 1-a? 


This matrix has a determinant of 1, and there is no net 
spiraling effect. What you get is actually an ellipse that is 
stretched slightly in the northeast-southwest direction 
and squeezed slightly in the northwest-southeast direc- 
tion. The maximum radius error in these directions is 
approximately a/4. 

Now comes the really interesting part. Because you can 
start out with any vector, let’s try (1000,0). Now, cleverly 
select a to be an inverse power of 2 and the multiplication 
becomes just a shift—for example, a value of a=1/64 is 
just (shift right 6) and generates the circle in about 402 
steps. So, you can do all this just with integer arithmetic 
and no multiplication. This is how you used to draw cir- 
cles quickly—and in fact do rotation incrementally—be- 
fore the age of hardware floating point and even hard- 
ware multiplication. (This was probably invented by Ivan 
Sutherland.) 


7. Rational Polynomials 

Another polynomial tack can be taken by looking in your 
hat and pulling out the following rabbit: 

if: 


X = (1-£7)/(1 + £2) 
y = 2t/(1 + £) 


then: 
x2 ~~ y* = j] 
no matter what t is (or identically, as mathematicians 


would say). Running t from 0 to 1 gives the upper-right 
quadrant of the circle. You can again evaluate these poly- 
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nomials by forward differences, stepping t in increments 
of 0.01, and get: 


X=1; DX=-.0001; DDX = -.0002 


Y=0; DY= .02 
W=1; DW= .0001; DDW= .0002 
MOVE(X, Y) 


FOR I=1 TO 100 
X=X+DX; DX=DX+ DDX 
Y=+¥+DY 
W=W-+DW; DW=DW-+ DDW 
DRAW(X/W,Y/W) 


Note that this is not an approximation like the last few 
tries were. It is exact—except for round-off error. Even 
round-off error can be removed, either by calculating the 
polynomials directly or by scaling all numbers by 10,000 
and doing it with integers. (The division x/w must still be 
done in floating point.) 

This one has always amazed me—effectively, you get 
to evaluate two transcendental functions exactly with 
only a few additions. What's the catch? It’s an application 
of the No Free Lunch theorem—you don't get to pick the 
angles. If you watch the points, you see that they are not 
equally spaced around the circle. In fact, as t goes to infin- 
ity, the point keeps going counterclockwise but slows 
down, finally running out of juice at (-1,0). If you go back- 
ward to minus infinity, the point goes clockwise, finally 
stopping again at (-1,0). (Yet more evidence that —o = 
+o.) To draw a complete circle, you are best advised to 
run t from -1 to +1, which draws the whole right half, 
and then mirror it to get the left half. 


8. Differential Equations 

An entirely different technique is to describe the motion 
of (x,y) dynamically. Imagine the point rotating about the 
center as a function of time ft. The position, velocity, and 
acceleration of the point will be: 


(x, Y) = (cos t, sin ft) 
(x, y’) = (-sin t, cos t) = (—y,x) 
(x", y”) = (cos t, -sin t) = (-x, -y) 


You can Cast these into differential equations and use sev- 
eral numerical integration techniques to solve them. 
The dumbest one, Euler integration, is just: 


Xnew = Xold - Kold At = Xold—Y. old At 
Ynew = Void + Y'ola At = Yoia + Xora At 


This looks a lot like algorithm 5 and has the same spiral- 
ing-out problem. You can generate better circles by using 
better integration techniques. My two favorites are the 
“leapfrog” technique and the Runge-Kutta technique. 

Leapfrog calculates the position and acceleration at 
times: 


t,t + At,t+2At,... 
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but calculates the velocity at times halfway between 
them: 


1 3 
bts t+sa... 


Advancing time one step then looks similar to Euler with 
just the evaluation times offset: 


Xsan = Xt + X'r+daAt 


X'r+ar ~ X'r+dar +X" 14 aAt 


(with similar equations for y). The position and velocity 
leapfrog over each other on even/odd half-time steps, so 
you have to keep separate variables for the velocities 
x’and y’ The code has a lot in common with algorithm 6 
and probably for good reason: 


X =1;Y =0 

VX=-SIN(DT/2); VY =COS(DT /2) 

MOVEIX,Y) 

FOR I=1TON 
A Kh VDT 
Y= Y + VY*DT 
VX = VX-X*DT "update veloc, AX=-xX” 
VY =VY-V*°DT ” AY=-Y” 
DRAW(X,Y) 


“update posn” 


Runge-Kutta is a slightly involved process that takes a 
fractional Euler step, reevaluates the derivatives there, 
applies the derivative at the original point, steps off in this 
new direction, generally screws around, and finally takes 
some average of all these to get the new time step. Plug- 
ging the differential equation into the formulas and sim- 
plifying requires about a page of algebra. You can look up 
the actual equations; they’re not incredibly complicated, 
but their derivation is ‘‘beyond the scope” of almost all 
numerical analysis textbooks I have seen. 

One advantage of Runge-Kutta is that it finds the posi- 
tion and velocity at the same time step, so for circles you 
can generate x and y with the same computation. Anoth- 
er advantage is that it comes in second-order, third-order, 
fourth-order, and so on versions for higher orders of pre- 
cision than does leapfrog. 

Plugging in for second-order RK, the ultimate result is: 


Knew = Xold(1 - ZAt) + Yoia (AD 


Ynew = Xoid'At) + Vold\1 + Far) 


Does this look familiar? The third-order RK and another 
page of algebra leads to: 


Xnew = Xold1-ZAL) + Youd—At + 2ars) 


Ynew = Xora At-2Ar) + Yor1-SAt?) 


Guess what fourth-order RK gives... you're right. | won't 
even bore you with the code. 
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9. Hali Interval 

The half-interval method (suggested by Jim Kajiya) as- 
sumes you have two endpoints of an arc and wish to fill in 
the middle with points on the circle. At each step you 
insert a new point between two others. Assuming a circle 
centered at the origin, the new point will be approxi- 
mately halfway between the surrounding ones: 


(Xin Ym) <n I - 2 Yi yz = yz 


It just needs to be moved outward to lie on the circle, 
which involves scaling the previous expression to length 
1. If the original points are at unit distance from the ori- 
gin, this means dividing by V/ 1 + x7xX2 ¥ yiy2/ V2. 

By doing this recursively, you can keep splitting until 
some error tolerance is met. The code is something like: 


X1=1; Y1=0 
X2=0; Y2=1 
MOVE(X1, Y1) 
SPLIT(X1,Y1, X2, Y2) 


where SPLIT(X1,Y1, X2,Y2) is defined to be: 


D = SORT(2*(1+ X1*X2+ Y1*Y2)) 

XM = (X1+ X2)/D 

YM = (Y1+ Y2)/D 

IF error_tolerance_ok 
DRAW(XM,YM) 
DRAW(X1,Y2) 

ELSE 
SPLIT(X1,Y1, XM, YM) 
SPLIT(XM,YM, X2,Y2) 


The error tolerance could be just a recursion depth count- 
er, stopping at a fixed recursion depth. This is nice be- 
cause, for a given pair of initial points, the value of Dis just 
a function of recursion depth and can be precomputed 
and placed in a table. 


Pixel-Based Techniques 

The other major category of algorithms involves output 
more directly suited to raster displays. Here the question 
is not where to move the “‘pen’”’ next but which of the grid 
of pixels to light up. The preceding algorithms can, of 
course, be applied to pixels by generating coordinates 
and feeding them to a line-to-pixel drawing routine, but I 
won't pursue these methods. I'll just look at ways to gen- 
erate the desired pixels directly. For simplicity I will as- 
sume you are drawing a 100-pixel-radius circle with pix- 
els addressed so that (0,0) is in the center and that negative 
coordinates are OK. The algorithms operate in integer 
pixel space, assuming square pixels. Note that the follow- 
ing variables start with I, indicating that they are integers. 


10. Fill Disk 
Perhaps the dumbest algorithm is just to see how far each 
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pixel is from the center and color it in if it’s inside the 
circle: 


FOR TY =-100 TO 100 
FOR IX=-100 TO 100 
IF (IX*IX + TY*IY < 10000) SETPXLIIX,TY) 


This, of course, fills in the entire disk instead of just draw- 
ing lines, but who’s being picky? You would be correct in 
assuming that this might be a bit slow. Some quick speed- 
ups: calculate the value of x’ by forward differences and 
calculate the allowable range of x’ outside the x loop (for- 
ward differences probably aren’t worth the trouble for 
this). 


FOR TY =-100 TO 100 
IX2MAX = 10000 - IY*IY 
IX2 = 10000; IDX2 = -199; IDDX2 = 2 
FOR IX = -100 TO 100 
IF (IX2 < IX2MAX) SETPXLIIX,IY) 
IX2=1IX2+ IDX2; IDX2=IDX2+IDDX2 


11. Solve for X Range Covered 

The preceding algorithm still examines every pixel on 
the screen. You can skip some of this by explicitly solving 
for the range in x: 


FOR IY= 100 TO -100 BY -1 
IXRNG = SORT(10000 -IY*IY) 
FOR IX = -IXRNG TO IXRNG 

SETPXL(IX,IY) 


Or just plot the endpoints instead of filling in the whole 
disk: 


FOR TY= 100 TO -100 BY -1 
IX = SORT(10000-IY*TY) 
SETPXLI(-IX,TY) 
SETPXL(IX,TY) 


This leaves unsightly gaps near the top and bottom. 


12. Various Approximations to SORT 
Make a polynomial, or rational polynomial, approxima- 


tion to ./10000-y? that is good for the range 
-100... +100. Evaluate it with forward differences. 


13. Driving X Away 

Let's just do the upper-right quarter of the circle and fol- 
low the point (0,100). For each downward step in y, you 
move to the right some distance in x. Start at the x that’s 
left over from last time and step it to the right until it hits 
the circle, leaving a trail of pixels behind: 


IX=0 
FOR IY= 100 TOO BY -1 
IX2MAX = 10000-IY*1Y 
DO UNTIL (IX*IX)>IX2MAX 
SETPXLIIX,TY) 
IX=IX+1 


Calculation of 1x2MAX and [x2 can be done by forward 
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differences: 


IX =0 
IX2=0; IDAZ=1; IDDX2=2 
IX2MAX=0; IDX2MAX= 199; IDDX2MAX=-2 
FOR IY = 100 TOO BY -1 
DO UNTIL IX2 > IX2MAX 
SETPXLIIX,TY) 
IX=IX+1 
IX2=1X2+ IDX2; IDX2=IDX2+ IDDX2 
I X2MAX=I X2MAX+ID X2MAX 
IDX2MAX=IDX2MAX+ IDDX2MAX 


This still has a few problems, but I won't pursue them 
because the next two algorithms are so much better. 


14. Bresenham 

The previous algorithm begins to look like Bresenham's 
algorithm, which is the top of the line in pixel-oriented 
circle algorithms. It endeavors to generate the best possi- 
ble placement of pixels describing the circle with the 
smallest amount of (integer) code in the inner loop. It op- 
erates with two basic concepts. 

First, the curve is defined by an “error” function. For 
my circle, this is E=10000-x?-y?. For points exactly on the 
circle, E=0; inside the circle, E>0; and outside the circle, 
E<0. 

Second, the current point is nudged by one pixel in a 
direction that moves ‘‘forward”’ and in a direction that 
minimizes E. Consider just the octant of the circle from 
(0,100), moving to the right by 45 degrees. At each itera- 
tion, you can choose to move either to the right (R)— 
x=x+1—or diagonally (D)—x=x+1 and y=y-1. 

The nice thing about this is that the value of E can be 
tracked incrementally. If the error at the current (x,y) is: 


Fur i 10000-x?-y* 
then an R step will make: 


new = 10000-(x + 1)?-y? 
= Four 2x + 1) 


and a D step will make: 


Enew = 10000-(x + 1)*-(y-1) 


-* Eeur-(2X - 1)+ (2y-1) 


E,- Eg =2y-1, always positive 
Ep - Ep 


can never happen 
—Ep + Ep =-(2y-1), always negative 


Table 1: Testing the sign of |Ep!- |Egl. 
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Now, for the octant in question, xy, x=0, and y>0. So, 
an R step subtracts something from E and a D step adds 
something to E. The naive version of the algorithm deter- 
mines which way to go by looking at the current sign of E, 
always striving to drive it toward its opposite sign: 


IX=0; IY =-100 
IE=0 
WHILE IX< =IY 
IF (IE<O) 
IE=IE+IY+IY-1 
IY=IlyY-1 
TE=ITE-IX-IX-1 
IX=IX+1 
SETPXLIIX,TY) 


15. Improved Bresenham 

You can do better. What you want to do at each step is 
actually to pick the direction that generates the smallest- 
size error, |E|. You want to look ahead at the two possible 
new error values: 


and test the sign of !Ep!—lE,!. The trick is to avoid cal- 
culating absolute values. Table 1, below, shows the 
possibilities. 

Now comes the tricky part. You can define a ‘‘biased”’ 
error from the (+ -) case: 


G = Ey + Ep 


and use this as the test for all three cases. This works for 
the following reason: In the (+ +) case, | E,|—| Eg! = 2y-1 
is positive, but. .so is».G., In--the (--). case, 
| Ep|-|Eg|=-(2y-1) is negative, but so is G. 

G can be calculated incrementally, just like E was. The 
new values due to R and D steps are: 


Gr = G-4x-6 
Gp _ G-4x + 4y-10 


Further, the increments to G can be calculated incremen- 
tally. You get the idea by now ... 


IR=100 
IX=0; 1Y=IR 
IG=2*IR-3 
IDGR=-6; IDGD=4"*IR-10 
WHILE IX<=IY 
IF IG<0 
IG=IG+IDGD 
IDGD=IDGD-8 
lyY=ly-1 
ELSE 
IG=IG+IDGR 
IDGD=IDGD-4 
IDGR=IDGR-4 
IX=IX+1 
SETPXLIX,TY) 


"go diagonally” 


"go right” 
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Whew! 






Conclusion 
So, why is all this interesting—aside from the pack rat joy 
of collecting things? 

Well, you can certainly use these algorithms to opti- 
mize your circle-drawing programs if you're into circles. 
Each algorithm has its own little niche in the speed-accu- 
racy-complexity trade-off space. Sometimes economy is 
misleading—the SETPXL routine often gobbles up any 
time you saved being clever with Bresenham’s algorithm. 
Let's face it: unless there’s something very time-critical, I 
usually use algorithm 1 because it’s easiest to remember. 

The really interesting thing about all these algorithms is 
the directions in which they lead you when you try to 
generalize them. Algorithms 2 and 7 lead to general poly- 
nomial curves. Algorithm 4 leads to iterated function the- 
ory. Algorithm 5 leads to the CORDIC method of function 
evaluation. Algorithm 11 has to do with rendering 
spheres. (I wonder what happens to algorithm 15 if you 
use some other simple functions of x and y for G, Gz, and 
Gp.) In fact, although many of these algorithms look quite 
similar when applied to circles, their generalizations lead 


to very different things. It sort of shows the underlying 
unity of the universe. Maybe the Greeks had something 
there. 
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ARTICLES 


File Comparison 
Algorithms 


everal popular algorithms ex- 
ay ist for comparing two files. 

All of these actually look first 
for matches rather than differences. 
After the matching process has been 
completed, the remainders of the 
files that are not included in the 
matches are then reported as differ- 
ences. (See Figure 1, page 29.) 

The algorithms differ greatly in 
their conceptualization of the prob- 
lem, however. In this article, I exam- 
ine several algorithms for comparing 
text files—specifically, source code 
files—using a line as the basic unit of 
comparison. The ideas and algo- 
rithms I present here, however, can 
be extended to other types of files 
and other units of comparison as 
well. I also present a new algorithm 
with some interesting properties. 


Evaluating The Algorithms 
Any file comparison algorithm 
should be evaluated according to sev- 
eral criteria: 


eIs it efficient? Time efficiency 
(speed) and space efficiency (memo- 
ry usage) are both practical consider- 
ations. Usually they are related to the 
lengths of the files being compared. 

¢ Is it robust? No algorithm is flawless. 
For any given file comparison algo- 
rithm, it is always possible to concoct 
devious situations in which its per- 
formance appears less than perfect. 
The algorithm should, however, be 
able to produce reasonable differ- 
ence reports for a variety of test 
cases. 

¢ Can it let differences go undetected? 
No algorithm should allow a file dif- 
ference to go undetected. 


Tom Steppe, P.O. Box 2887, Ann Ar- 
bor, MI 48106. Tom designs and devel- 
ops software written exclusively in C. 
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by Tom Steppe 


Determining which 
files are more equal 


than others 





¢ Can it let matches go undetected? If 
an algorithm can overlook matching 
lines, it will report these lines as dif- 
ferences when they are not. If the 
file comparison is being performed 
to produce a delta file, this usually is 
not a major problem, even though 
each undetected match does increase 
the size of the delta file unnecessari- 
ly. If the differences are to be in- 
spected visually, however, a report 
of false differences can be a serious 
drawback. 

Say, for example, that you do not 
have a file comparison utility and so 
you have to compare two files by 
eye. This process is certainly tedious 
and prone to error, especially if some 
of the differences are subtle. If you 
now use a file comparison utility that 
is known to report false differences, 
you have to inspect the output by eye 
and decide which reported differ- 
ences are true differences. The utili- 
ty has not really done the job for you, 
it has only made your “by eye’”’ in- 
spection a smaller job that is still 
prone to error. 
¢ Can it detect blocks of text that have 
been moved? Typically, if a block of 
text has been moved, it simply shows 
up in the report of differences as a 
large deletion of text at one location 
and a large insertion of text at anoth- 
er. Unfortunately, no differences 
within the moved block are 
highlighted. 

When a file comparison is used to 
create a delta file, the ability to detect 








moved blocks of text is probably de- 
sirable because it can lead to smaller 
delta files. But, when a file compari- 
son is performed so that the differ- 
ences can be inspected visually, the 
ability to detect moved blocks is not 
always as handy as it might seem to 
be. Trying to report the moved 
blocks is often difficult and can lead 
to complicated reports of the differ- 
ences, especially when a large block 
of text is moved, a piece of that block 
is moved to another location, a piece 
of that piece is moved to still another 
location, and so on. Also, the differ- 
ence report can sometimes be over- 
burdened by uninteresting reports of 
small blocks (one-line and two-line 
blocks of text) being moved all over 
the place. 

Only one algorithm discussed here 
can inherently detect moved blocks 
of text. The other algorithms, howev- 
er, can be extended to do so, as fol- 
lows. After applying the algorithm, 
replace each matching line in each 
file with a line that is guaranteed 
never to match. This leaves only the 
differences, which could contain 
moved blocks of text. Next, reapply 
the algorithm to the transformed 
files. Any match that is found in this 
pass will represent a moved block of 
text (see Figure 2, page 29). Continue 
this process iteratively until no new 
matches can be found. Of course, the 
cost of this iterative behavior is long- 
er execution time. 


These criteria help to provide a 
useful basis for surveying popular 


file comparison algorithms. 


Popular Algorithms 
jor Finding Matches 


Scan Until Next Match 
The “scan until next matching se- 
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quence” algorithm is probably the 
oldest method of file comparison. 
This algorithm starts at the tops of 
both files and matches as many lines 
as possible. When a difference is de- 
tected, the next M lines are scanned 
until at least N consecutive matching 
lines are found. If a sequence of N or 
more consecutive matching lines is 
found, the process begins again after 
the matching sequence. If such a se- 
quence is not found, the process be- 
gins again M lines further down in 
the files. This process is repeated un- 
til the ends of the files are reached. 

The values of M and N can be ad- 
justed to affect the algorithm's per- 
formance. The value of M is used to 
control efficiency by restricting the 
number of lines that will be exam- 
ined while searching for a sequence 
of matching lines. When an improp- 
er sequence of matching lines is dis- 
covered, the algorithm can be reap- 
plied using a new value for N that is 
larger than the length of the improp- 
er sequence. In this way, the algo- 
rithm will overlook the undesirable 
sequence because it contains fewer 
than N matching lines, but as is al- 
ways the case, the algorithm will also 
overlook any legitimate matching se- 
quences that contain fewer than N 
lines (see Figure 3, page 30). Unfortu- 
nately, these matching lines are then 
reported as differences. All too often, 
this algorithm produces bad reports 
in common situations. 

Although this algorithm is often 
highly time efficient, requires mini- 
mal memory, and frequently pro- 
duces good difference reports, it does 
not take long to become frustrated 
with its shortcomings and inherent 
problems and begin looking for a bet- 
ter solution. 


Longest Common Subsequence 
Think of a file as representing a se- 
quence of lines. A subsequence of 
those lines is defined simply as any 
sequence of lines that results from 
removing zero or more lines from 
the original sequence— for example, 
the longest subsequence of any se- 
quence of lines is the sequence itself, 
with zero lines removed. Also, a se- 
quence of zero lines would be a sub- 
sequence of any sequence because it 
could be created by removing all the 
lines from any sequence. 

The ‘‘longest common _ subse- 
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quence” approach to file comparison 
takes the two files to be compared 
and finds the longest sequence of 
lines that is a subsequence of each of 
the files’ lines—the longest common 
subsequence (see Figure 4, page 30). 
Tne details of the algorithm are not 
discussed here, but sources of such 
discussions are included in the bibli- 
ography. The Unix diff command is 
based on this algorithm. 


This algorithm provides a simple, 
compact formalization of the file 
comparison problem and produces 
reasonable difference reports in a va- 
riety of test cases. The reports are 
quite acceptable whether the com- 
parison is being used for visual in- 
spection of the differences or for cre- 
ating a delta file. In fact, among all 
the algorithms discussed here, it is 
probably safe to say that this one con- 














filet file2 

A A 

B BB 

C C 

D e 

E r 

Difference report: 

HHH#HHFHOOO0NIF FF FFF HHKFHFHHEAAHHE ES filet 
= e 68 
# SSS SSS SSS SSS 55 55 = ======Changedto 
# 2 6S 


HHEFHHHOODNIF FF FFF AFH AHHAH HAHA AES Ffile2 


HHHH#FHOOO0IF FHF FHF HH AE AAEHE HAHAH F #filel 


# a OD 
# SS eae eae ie ii ii ia i 0 BS FSS SS SEY FE FS FF 8 2 
# deleted 


HHHH#HHOODDIF FF HF HHH HAHAH HAHAHA F File? 


HHH#H#HHOODDIF FF HF FAH HAH HHHE AAA AHHH Fill 


# inserted 
# = SSS Se SS SS TSS SS SS TSS TS SE SES SE LE SS ES LS SE ES ES SES SS HS 8S TSS TS 
# 5 F 


HH#HHH#H#H00001IF FFF HAF HHH HHAHHHAHE FF Ffile2 


Figure 1: File comparison algorithms actually look first for line matches and 
then report lines that are not included in the matches as differences. The differ- 
ences are usually expressed as the changes, insertions, and deletions that can be 
applied to one file to make it identical to the other. 


Second iteration: 
(Previous matches 
are blanked out.) 


First iteration: 


filet file2 file1 file2 
A A . 2 
B ? 
C 
D 
E 
ec 


Figure 2: Moved blocks of text can be found by applying a standard line- 
matching algorithm to the files and then reapplying the algorithm iteratively to 
the remainders of both files. 


29 


FILE COMPARISONS 
(continued from page 29) 


sistently produces the best reports 
when comparing files that do not in- 
volve blocks of text that have been 
moved. 

Sometimes the quality of the re- 
ports can be overshadowed by issues 
of time and space efficiency. This is 
not always true, but situations that 
include a poor combination of large 
files and limited computer resources 
can lead to less than desirable per- 
formance by this algorithm. A basic 
implementation of the algorithm re- 
quires linear space and quadratic 
time. In some cases, the quadratic 
time can prove to be unacceptable. In 
summary, the ‘longest common sub- 
sequence’ algorithm produces excel- 
lent reports, but it can be slow. 


Extended Unique Line Matching 

The “extended unique line match- 
ing’ algorithm is based on the idea 
that a line that occurs once and only 
once in each file must be the same 
line. These pairs of “unique’’ lines 
determine the initial set of matched 


A 
B 
C 
E 
& 
G 

| 
J 
K 


A. . co nm O 


Figure 3: The ‘scan until next 
matching sequence” algorithm often 
produces bad reports in common situ- 
ations. When N=3, the algorithm set- 
tles for matches of three lines, never 
realizing that a match of eight lines is 
possible. When N=4, it discovers the 
match of eight lines but does not de- 
tect the remaining match of three lines 
(A, B, C). 
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lines. (Imaginary lines at the tops and 
the bottoms of the files are also add- 
ed to the set of matched lines.) Then, 
in each file, the lines adjacent to each 
match are examined and, if identical, 
are added to the set of matched lines. 
This process is repeated until no new 
matches can be found. 

This algorithm has strong intuitive 
appeal. It is efficient, being linear in 
both time and space. Also, it is the 
only popular algorithm that inher- 
ently detects blocks of text that have 
been moved (even if some differ- 
ences exist within the blocks). Moved 
blocks can be detected because the 
search for pairs of unique lines is in 
no way sequential and, therefore, 
can result in matches that indicate 
that a block of text has been moved. 
Note that the algorithm can find a 
moved block of text only if it contains 
a unique line match within it. 

A significant problem with this al- 
gorithm is that it is prone to allowing 
some matches to go undetected. This 
occurs when matching lines are not 
neatly flanked by either unique line 
matches or the adjacent matches that 
have grown outward from unique 
line matches (see Figure 5, below). 

This algorithm is fast and can fre- 
quently detect moved blocks of text, 
but a sacrifice is often made in the 
quality of the difference report. 
Probably its best application is in the 
generation of delta files when speed 
is the primary concern. 


A New Algorithm 

The “recursive longest matching se- 
quence’ algorithm uses a simple yet 
effective approach to the problem. 


file1 


file2 





Figure 4: The “longest common se- 
quence” algorithm finds the longest 
(not necessarily consecutive) se- 
quence of lines that is contained in 


both files. 








This method first scans both files 
from beginning to end, looking for 
the longest sequence of consecutive 
matching lines. That sequence is 
then thought of as dividing each of 
the two files into an upper section 
and a lower section. Then, the algo- 
rithm proceeds by scanning both up- 
per sections looking for the longest 
sequence of consecutive matching 
lines and, similarly, both lower sec- 
tions for the same. These matching 
sequences then divide their respec- 
tive sections, and the process contin- 
ues recursively until no more match- 
es can be found. 

This method of file comparison is 
easy to understand and produces ac- 
ceptable difference reports across a 
spectrum of test cases. It uses linear 
space but quadratic time. Because 
time efficiency can be a problem in 
some situations, a simple modifica- 
tion of the algorithm is needed. An 
explanation of the modification re- 
quires an understanding of the meth- 
od used to locate the longest se- 
quence of matching lines between 
sections of two files. 

First of all, once the longest se- 
quence is known, it can be identified 
by a pair of starting lines—one line 
from each file that specifies where 
the sequence begins in that file. So, 
when searching for the longest se- 
quence, candidate pairs of starting 
lines are examined successively (in 
some intelligent order that starts at 
the beginnings of both file sections), 
and information is continually main- 
tained about the length and location 
of the longest sequence of matching 
lines that has been discovered so far. 


file2 


filet 


Figure 5: The “extended unique line 
matching” algorithm is prone to de- 
tecting false differences. In this case, 
no matches are found (because there 
are no unique line matches) and all 
lines are reported as differences. 
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TEACH 
AN OLD DOS 
NEW TRICK 


Ss aa ; ao ee 


Protected Mode and 32-bit Performance Today 


OS/286™ and OS/386™ Features: 


¢ Huge address space (4GB on the 
80386) 

¢ 32-bit performance (80386) 

* No rewriting of device drivers 

¢ Compact code (under 64k) 

¢ Support for all existing DOS calls 

¢ New INT-21 calls for manipulating 
segments, invoking real-mode rou- 
tines and interrupt handlers, and 
addressing physical memory directly 

¢ Full interrupt vector support 

* Powerful debugging: concurrent 
DOS environment while debugging 
protected mode programs 

¢ The ability to run non-Windows pro- 
grams in a window 














Introducing OS/286™ and OS/386™, 
extensions to MS-DOS 3.x that enable 
full use of the 80286 and 80386. Now 
you get direct access to all available 
memory, not just an archaic 640K. 


OS/286 and OS/386 propel your pro- 
grams beyond the limitations of DOS, 
without forcing you to start all over. 


Moving to protected mode is simple 
because OS/286 and OS/386 give you 
the same interface as DOS. The hard- 
ware is still under your direct control, 
many 16-bit compilers already gen- 
erate code suitable for OS/286 and 
OS/386, and existing highly tuned, 
machine-specific subroutines running 
in real mode can be efficiently called 
from within protected mode. Since 
most of your own code won’t need to be 
rewritten, your programming invest- 
ment is preserved. And because 
OS/286 and OS/386 work with DOS 
3.x, they don’t affect other programs, 
device drivers, or TSRs. 


A.|. Architects gives you a 
complete development toolkit: 
OS/286 or OS/386 kernel and linker, 
Symbolic debugger and command 
processor 
Options include: 

16-bit and 32-bit compilers 


High C, Professional Pascal, or 
F77L FORTRAN 


32-bit Assembler 
386 HummingBoard™ 


The basic Developer’s Kit is $495. 
32-bit Compilers are $895. Run time 
licenses for OS/286 and OS/386 are 

ai available at nominal cost. 


In addition to the larger address 
space offered by protected mode, 
OS/386 adds 32-bit performance to 
systems like the Compaq™ 386 
which, until now, have been shackled 
to 8086 emulation. 








poe oot 





f\ I A.l. Architect's 

rae os = alle HummingBoard™ is a high perform- 
can be customized to give 3 ance 386 coprocessor for the PC-XT, 
unmodified DOS programs up to 900k Architects, Inc. AT and compatibles available with 
on 386 systems, regardless of how One Kendall Square the 80387 and 2-24 Mbytes of RAM. 
many TSR’s, networks, disk caches, Cambridge, Massachusetts 02139 

etc., are installed. (617) 577-8052 


OS/286, OS/386 and HummingBoard are trademarks of A.I. Architects, Inc., Compag Deskpro 386 is a trademark of Compaq Computer Corp., High C and Professional Pascal are 
trademarks of Metaware, Inc., F77L FORTRAN is a trademark of Lahey Computer Systems, Inc., Microsoft and MS-DOS are trademarks of Microsoft Corp., VAX 8600 is a 
trademark of Digital Equipment Corp., Sun 3/160 is a trademark of Sun Microsystems, Inc., Unix is a trademark of AT&T. 
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FILE COMPARISONS 
(continued from page 30) 


When the ends of the file sections are 
reached, the longest sequence is 
known and information about the se- 
quence is reported. 


No long-enough value: 


file2 
A| 3rd sequence 


2nd sequence 


1st sequence 


4th sequence 


The modification to this algorithm 
allows the searching to stop if a se- 
quence of N matching lines is found, 
realizing that it might not be the lon- 
gest sequence that would be discov- 
ered if the searching were allowed to 
continue to the ends of the sections. 


Long-enough value= 2: 


file1 file2 


2nd sequence 


3rd sequence 


4th sequence 





Figure 6: With the “recursive longest matching sequence” algorithm, the use 
of a long-enough value often finds exactly the same sequences of matching lines 
although the discoveries may occur in a different order. 









A file comparison utility is a versatile 
tool for a range of situations. It is use- 
ful to partition these situations into 
two distinct cases. 

In the most common case, a file 
comparison is performed so that the 
differences between two versions of 
a text file can be inspected visually. 
The differences are usually ex- 
pressed as the changes, insertions, 
and deletions that can be applied to 
one file to make it identical to the 
other file. In this case, the primary 
job of the comparison is to produce a 
concise and readable report of the 
differences. 

In the course of editing, a file com- 
parison can be used in this way to 
highlight the differences between a 
previous version of a file and the cur- 
rent version. Valid modifications can 
be verified, and spurious edits can be 
detected. As another example, if a 
new version of a program is pro- 
duced, a partial test of its integrity 
could include a file comparison of its 
output with the output from a previ- 
ous version of the program that is 
known to be correct. If the two out- 
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Delta Files and User Reports 


puts compare favorably, the new 
program passes this integrity test. If 
they do not compare favorably, an- 
other file comparison can be used in 
the debugging process to highlight 
the changes between a version of a 
source code file that is known to 
work and the version that does not 
work. 

In the second case, a file compari- 
son is performed to generate a delta 
file—a file that contains a report of 
the differences between the two 
files. If the file comparison is thought 
of as comparing an old file with a 
new file, a backward delta file is de- 
signed so that it contains all the infor- 
mation necessary to recreate the old 
file, given the new file. A forward 
delta file is designed to be able to re- 
create the new file, given the old file. 
In either case, one of the original files 
can be eliminated without loss of in- 
formation. If the delta file is smaller 
than the file it allows to be eliminat- 
ed, this will result in a savings of disk 
space. The primary job of a file com- 
parison in this case is to produce a 
compact delta file. 








This allows the searching to end pre- 
maturely (before the longest se- 
quence has been assured) and can 
save considerable time. N is called 
the “long-enough”’ value. The effects 
of the long-enough value can be ex- 
amined by choosing some test pairs 
of files and comparing the behavior 
of the algorithm when a long- 
enough value is used and when one 
is not used. Quite often, the use of a 
reasonable long-enough value will 
find exactly the same sequences of 
matching lines (although the discov- 
eries may occur in a different order), 
thus producing an identical report of 
the differences but with a significant 
improvement in speed (see Figure 6, 
page 32). In fact, the use of a reason- 
able long-enough value allows this 
algorithm to perform in essentially 
linear time for typical cases, over- 
coming the previous worry of time 
efficiency. 

The long-enough value is a param- 
eter that you can specify. To deter- 
mine a good value for your purposes, 
first guess at the length of the longest 





This use of a file comparison utility 
is particularly common in version 
control systems that maintain multi- 
ple historical versions of source code 
files. Only the current version of a 
source code file is saved, whereas a 
backward delta file is saved for each 
historical version. Any historical ver- 
sion can be recreated by applying 
the appropriate delta files to the cur- 
rent version of the file. The savings 
in disk space can be tremendous. (Al- 
ternatively, some version control sys- 
tems save the first version of the file 
and the subsequent forward delta 
files.) 

This usage is also common in tele- 
communications applications where 
a file at one or more remote sites has 
to be updated from a host. A forward 
delta file is created on the host by 
comparing the new file with the old 
file (a copy of the file that exists at the 
remote site). If the delta file is small, it 
is often more efficient to transmit the 
forward delta file and apply it to the 
old file than it is to transmit the new 
file in its entirety. 
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Optimizing Compiler 
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/* now go find flags and files on cnd line */ 

while (—-argc) 
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Fast Execution Speed. 


Microsoft® C 4.0 Microsoft C 5.0 
Sieve (25 iterations) 5.7 3 
Loop 11.0 0 
Float 19.9 0 


Dhrystone 22.8 19 
Pointer 14.2 7. 
- New optimizations generate the fastest code: 
— Inline code generation. NEW! 
—Loop optimizations: NEW! 
— Loop invariant expression removal. NEW! 
— Automatic register allocation of variables. NEW! 
—Elmination of common sub expressions. 
—Improved constant folding and value propagation. 
- Fine tune your programs for even greater speed: 
— Coding techniques for writing the fastest possible 
programs are included in the documentation. NEW! 
—Segment Allocation Control: 
—Group functions into the same segment to get faster 
NEAR calls. NEW! 
— Specify which segments receive variables to yield 
faster NEAR references. NEW! 
— Uses register variable declarations. 
— Mix memory models using NEAR, FAR & HUGE 
pointers. 
Benchmarks run on an IBM® Personal System/2™ *Time is negligible. 


3 
0* 
1 
1 
4 


. 
. 





ee 





Fast Compilation. 
Fast Prototyping. 


Microsoft C Version 5.0 includes QuickC™ which 

lets you edit, compile, debug, and execute in an 

integrated environment. It’s ideal for prototyping. 

-In-memory compilation at over 10,000 lines/ 
minute. NEW! 

- Built-in editor with parentheses, bracket and 
brace matching. 

- Use the integrated debugger to animate through 
your program, add watch variables and set 
dynamic breakpoints. NEW! 

« MAKE file is automatically generated for you. 
Simply indicate the modules you want to use, 
then MAKE recompiles and links only those 
modules that have changed. NEW! 

¢Full C 5.0 compatibility: 

— Completely source and object code compatible. 
— Emits CodeView®-supported executables. 
— Identical compile/link command line switches. 





And speed. 


Fast Debugging. 


Microsoft C Version 5.0 includes Microsoft CodeView, 
our source-level windowing debugger that lets you debug 
more quickly and thoroughly than ever before. 

¢ Debug larger programs: 

— Debug through overlays created by the 
Microsoft overlay linker. NEW! 

— Expanded Memory Specification (EMS) 
support. NEW! 

¢ Fast debugging through precise control of your 
program execution: 

— Access source level and symbolic debug information 
from your Microsoft C, FORTRAN, and Macro 
Assembler programs. NEW! 

— View your source code and assembly simultaneously. 

— Watch the value of variables change as you execute. 

—Set conditional breakpoints. 

— Animate or single step through your program. 

¢ CodeView brings you as close as you’ve ever been 
to your hardware: 

— Swap between your code and output screens. 

— Watch your registers and flags change as your 
program executes. 





C 5.0 will be available soon. If you purchase Microsoft C 4.0 after June 1, 1987, 
we'll give you a C 5.0 upgrade. Free. For your free information packet, call: 


(SOO) 426-9400. 
Microsoft, the Microsoft logo and CodeView are registe 


istered trademarks and QuickC is a trademark of Microsoft Corporation. 0587 Part N -048- 
IBM is a registered trademark and Personal System/2 is a trademark of International Business Machines euadae. : sreceia Ein ciace 


FILE COMPARISONS 
(continued from page 32) 


sequence of lines you can imagine 
appearing more than once in a typi- 
cal file. The long-enough. value 
should be at least one larger than 
your guess. This will help the algo- 
rithm to avoid matching the wrong 
instance when a sequence of lines 
appears multiple times in a file. If a 
particular choice of long-enough val- 
ue produces unsatisfactory. differ- 
ence reports, the algorithm can al- 
ways be applied again with a larger 
value. When comparing C source 
code, I typically choose a generous 
value of 25, and I rarely have to re- 
run the comparison. 

The “recursive longest matching 
sequence” algorithm is particularly 
well suited to take advantage of some 
common hash code technology as a 
means of improving time perform- 
ance even more. In applications that 
involve repetitive string compari- 
sons, it is often useful to calculate 
hash codes initially for all the strings. 
Then, the hash codes are compared 
instead of the strings themselves. The 
comparison of two hash code values 
is much quicker than is the compari- 
son of two strings. If the hash codes 
are not equal, the strings cannot pos- 
sibly be the same and need not be 
compared. If the hash codes are 


equal, only then must the strings be | 


compared to prove or disprove their 
equality. 

The performance benefits are 
even more dramatic when hash 
codes are used with the “recursive 
longest matching sequence’”’ algo- 
rithm. When searching for the lon- 
gest sequence of matching lines, 
strings do not have to be compared 
every time a pair of matching hash 
codes is found. Instead, strings only 
have to be compared once a se- 
quence of matching hash codes is 
found that is longer than the longest 
sequence yet found. 

The time efficiency can be im- 
proved even further if a hash code 
table is maintained for each file. The 
table should consist of an array that 
contains as many elements as there 
are possible hash code values. Each 
element of the array should consist 
of a linked list of line numbers for 
lines whose hash code values are 
equal to the array index. This table 
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can easily be created by processing 
each line in the file, calculating its 
hash code value, and adding its line 
number to the proper linked list. 
Now, while searching for the longest 
sequence of matching lines by exam- 
ining pairs of starting line numbers, 
the number of candidate pairs can be 
greatly reduced. For any given line 
in one file, only those lines in the 
other file that have the same hash 
code value (as can be easily deter- 
mined from the file’s hash code ta- 
ble) need to be considered. 

A basic C implementation of the 
“recursive longest matching se- 
quence”’ algorithm is shown in List- 
ing One, page 54. Its simplicity, com- 
bined with a long-enough value 
modification and some clever use of 
hash codes, makes it a viable solution 
to the file comparison problem. It is 
suitable for both delta creation and 
visual inspection purposes. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063, or call (415) 366-3600, ext. 


216. Please specify issue number and 
format (MS-DOS, Macintosh, Kaypro). 

You can also purchase a full-fea- 
tured executable version of this algo- 
rithm from Stepping Stone Software, 
P.O. Box 2887, Ann Arbor, MI 48106 
for $30. The available format is MS- 
DOS 54-inch DSDD. 
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‘How to protect your software 
by letting people copy it?’ 


By Dick Erett, President of Software Security 


Inventor and 
entrepreneur, 
Dick Erett, 

_ explains his 
) company’s 

. ® ‘| view on the 
protection of intellectual 


property. 
- even sophisticated 
software develop- 

ment companies and the 

trade press seem to be miss- 

ing or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are clear. You can give 
product away to a segment 








crucial point that 
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the program diskette as you wish, 





Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directories containing 
program files. 





Hard Disk Installation : Simply copy , 
to hard disk using DOS Command - Copy A:*.* C: 


Program Back-ups : You may make as many copies of 


etworks : This product may be 

s. Follow the same installation 

gave 102 of this manual. The Block 
ith the normal operation of any 
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program disk 


Soon all software inst lation procedures will be as straightforward as this. 
The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


‘“.. giving your software 
away is fine...”’ 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 

We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


‘«..eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 


tion of work-alike devices 
to replace The BLOCK. 





The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK 1s transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


““,. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 
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The XOR Chain 
Revisited 


1987), David Cortesi showed how 

to use the exclusive-OR (XOR) op- 
eration to compress two pointer 
items into one link field in a doubly 
linked list. This trick is just one of 
many that have been used for this 
purpose over the years. In this article 
I'll describe some similar tricks for 
doing the same thing, discuss their 
relative advantages and disadvan- 
tages, and then present a package of 
C functions that use the XOR tech- 
nique to manipulate binary trees of 
arbitrary depth without using stacks. 


[ ‘The XOR Chain” (DDJ, June 


The Tricks of the Trade 
Cortesi’s article discussed a few im- 
portant properties of the XOR 
operation: 


A XORO=A (1) 
A XOR A = 0 (2) 
(A XOR C) XOR A = C (3) 
(A XORC)XORC=A (4) 


Properties 3 and 4 make it possible to 
store two pointers, A and C, in a sin- 
gle field as A XOR C and then recover 
either one of the two provided the 
other is known. Thus, if the address- 
es A, B, and C point to three nodes in 
sequence, and if the link field W of 
node B is set so that: 


Bennette R. Harris, 231 S. Janesville 
St., Whitewater, WI 53190. Dr. Harris 
is an assistant professor of mathemat- 
ics and computer science at the Uni- 
versity of Wisconsin-Whitewater. He 
teaches in the Management Computer 
Systems program and he also serves 
as a consultant both privately and 
through the university’s Small Busi- 
ness Development Center. 
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by Bennette R. Harris 


Managing trees 
without stacks 


W = AXORC 


then W xOR A yields C, permitting 
travel in one direction through the 
list, whereas W XOR C yields A, per- 
mitting travel in the other direction. 

The basic purpose of a storage 
technique such as this, as the preced- 
ing example illustrates, is to permit 
travel in two directions through a 
data structure while storing only a 
single link field. It assumes that you 
entered the data structure at a prede- 
fined entry point (such as a head or 
root node) and that an adjacent pair 
of nodes are referenced at any given 
point in time. 

It is not essential that you use the 
XOR operation for combining the ad- 
dresses—you can use almost any re- 
versible operation. For example, pro- 
vided the addresses are in a range 
that won't generate overflow errors, 
you could use the operations: 


W=A+C 
C=W-A 
A=W-C 


to move about in the data structure. 
This observation might be handy if 
you wanted to use this technique in 
an environment in which XOR was 
not available. The chief advantages 
of using XOR are its speed and never 





getting results that are out of range. 

Any such technique exchanges a 
fairly minimal amount of computa- 
tion for a reduction in the amount of 
storage required to hold pointers. 
All, however, suffer from the prob- 
lem that the data stored in a link field 
is “unnatural’’—it does not actually 
represent a pointer to any one node 
of the data structure. Instead, its con- 
tents are encoded, and the informa- 
tion can only be recovered using an 
adjacent node’s pointer as a key. If a 
portion of the data structure be- 
comes corrupted, the data structure 
as a whole becomes practically 
worthless because it’s virtually im- 
possible to make any sense out of 
links in nodes located beyond the 
point of corruption. Also, such link 
fields are hard to trace from a dump 
of the data structure. 

You can achieve the same space 
savings while maintaining ‘‘natural’’ 
links by reversing the link field of 
the current node to point backward 
to the previous node as you go down 
the data structure and then reversing 
the link again as you go back up. This 
way, the link field remains a true 
pointer to nodes of the data struc- 
ture. Supposing that addresses A, B, 
and C pointed to three nodes in se- 
quence, the link field W of node B 
would initially be set so that W = C. 
Then, as node B was accessed travel- 
ing forward, a series of statements 
similar to the following would be 
executed: 


NextNode = W 
W = PrevNode 


On the return back through the 
structure, of course, the link field of 
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node B would be reset using the same 
statements. For an example of this 
technique in action, see Allen Holub’s 
discussion of nonrecursive tree tra- 
versal in C Chest, DDJ, July 1986. 

This traversal technique ex- 
changes the XOR computations for 
the overhead required to reverse the 
link fields. Although links are always 
true pointers to interesting places, a 
disadvantage in this case is that the 
data structure must be exited from 
completely in the reverse manner to 
that in which it was entered in order 
to restore pointers to a useful state. 
This is undesirable if the data struc- 
ture is a large linked list, although it’s 
perhaps acceptable in a tree. A sec- 
ond undesirable feature of this meth- 
od is that, if a program or computer 
were to go down while in the middle 
of such an operation, the data would 
again be corrupted, although not ir- 
reparably so. Because the likelihood 
of such problems seems to be rela- 
tively high in a microcomputer envi- 
ronment, this is usually not accept- 
able. Finally, observe that the data 
must be accessed twice—once, to 
read it and once to write it again with 
the new link. In some applications 
this could represent a significant 
amount of overhead. 

Given the alternatives described 
here, the XOR chain stands out as one 
of the safest link compression tech- 
niques because the link fields are not 
changed in traversing the data 
structure. 


Climbing the Tree 

To keep matters simple, I will focus 
on binary trees in this article. Those 
of you who have experience with 
more general tree structures will be 
able to make the _ necessary 
adjustments. 

In a binary tree, each node con- 
tains two link fields—a left link anda 
right link—which point to the two 
children of the current (parent) node. 
Routines for manipulating trees of- 
ten make use of stacks or recursive 
programming techniques to main- 
tain the back-pointers required by 
these routines. In many cases the 
necessary stack space must be set 
aside in advance, limiting the poten- 
tial depth of the tree. With the XOR 
chain technique, the link fields can 
be coded so they can be used to travel 
either from parent to child or from 
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child to parent, much as in the case 
of linked lists. This makes it possible 
to implement a binary tree without 
setting aside a stack to maintain back- 
pointers for traversing the tree. 

The only reason why implement- 
ing a tree is not trivial has to do with 
the fact that a node has two children. 
Suppose you wish to visit the nodes 
in a tree in the fashion known as “‘in- 
order,” visiting the left child, then 
the parent, and finally the right 
child. When you return from a child 
to its parent, you need to know 
whether the child was a left child or 
a right child. If the child was a left 
child, then the parent must be visited 


The chief advantages 
of using XOR are its 
speed and never 
getting results that 
are out of range. 


next. If the child was a right child, 
then the parent has already been vis- 
ited, and it is time to return to the 
parent’s parent. This is not hard to 
determine if the links of the parent 
can be matched with the node just 
visited, but when these links have 
been coded as described earlier, it is 
not so simple. 

There are at least two ways out of 
the difficulty. One is to include an ex- 
tra bit in each node, indicating 
whether it is a left or right child. This 
extra bit is a small sacrifice for the 
convenience of the doubly linked 
pointers but still might be wasteful in 
a large data structure. The other way 
is available only if the binary tree is 
sorted. If the tree is sorted so that (for 
example) the key field of the left 
child is less than the key of the par- 
ent, which is in turn less than or 
equal to the key of the right child, 
then whether a node is a left child or 
a right child can be determined by 
comparing the child’s key field with 
that of its parent. Because binary 
trees are frequently used to index 
other data structures, this criterion is 
often met. 


Defining an Item 
The structure of an item (or node) in 
the tree is defined as follows: 


struct Item 
{ 
int key; 
unsigned Ilink, 
rlink; 
/* other stuff */ 


} 


The key field contains the key based 
on which the tree is sorted. Here, I 
have chosen key to be of type int, but 
you could use other types, depend- 
ing on your application. The link 
fields contain the XORed linking ad- 
dresses. The ‘other stuff” is applica- 
tion specific. 

I assume that /tems are created and 
destroyed as in Cortesi’s article: 


extern struct 

Item *Makeltem( ); 
extern void 

DropItem(i) struct Item *i; 


Defining a Tree 

A binary tree consists of a collection 
of zero or more Items that satisfy a 
hierarchical relationship. If a tree is 
not empty, then it has a unique root 
item that may have zero, one, or two 
children. Each child item is the root 
of a subtree that is itself a tree. The 
root item of a tree is an Item just like 
any other in the tree, except that it is 
not the child of any other item. It is 
convenient not to store any data in 
the root item so that an empty tree 
consists of a root item with no chil- 
dren. This makes it possible to define 
a function to test for an empty tree: 


int Empty(r) 
struct Item *r; 
{ 
return( (NULL = = r->llink) && 
(NULL == r—>rlink)); 


I’m assuming that the tree is sorted 
in-order fashion—that is, the key of 
the left child must be less than the 
key of the parent and the key of the 
right child must be greater than or 
equal to the key of the parent. I’m 
giving the root item an artificially 
high key so that the data-containing 
items are all found in the root’s left 
subtree. The root should be initial- 
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XOR CHAIN 
(continued from page 37) 


ized with: 
root->key = MaxKey 


where MaxKey is an appropriately 
defined value greater than any other 
key in the tree. 


Traversing the Tree 

To travel within a tree, you must en- 
ter at its root and then move up or 
down the tree from child to parent 
or parent to child. At any point with- 
in the tree, your position is described 
by a child-parent pair of pointers 
that contains the addresses of the 
item (child) being visited and its par- 
ent. As in Cortesi’s article, these ad- 
dresses are stored, together with the 
address of the tree’s root, in a record 
called a Scan: 


struct Scan 
struct Item *parent, 
*child, 
*root; 


Before it can be used, a Scan must 
first be associated with a particular 
tree by having its root field set: 


void Associate(s,r) 
struct Scan *s; 
struct Item *r; 


void GoLeft(s) 
struct Scan *s; 


{ 


struct Item *i- 


i = s—>parent | s—>child—>1link- 
S~——parent = s- -—child: 


s—>child =i; 


} 


void GoRight(s) 
struct Scan *s-:- 


{ 


struct Item *i-; 


i = s— >parent | s— >child—>rlink; 
S  -parent — s -—child- 


s—>child =i: 


} 


Example 1: Moving from the parent to its children 
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s->root = T; 


} 


Once a Scan is associated with a 
particular tree, it can be positioned at 
the root of the tree to begin the tree 
traversal: 


void ToRoot(s) 

struct Scan *s; 
s—> parent = NULL; 
s->child = s—>root; 


Because the root item of a tree has 
no parent, you can very easily test to 
see if a Scan is at the root of the tree: 


int AtRoot(s) 
struct Scan *s; 


return(s—> parent = = NULL); 


This function can be used to detect 
the end of a sequential walk through 
the tree because the root’s key value 
is greater than all other keys in the 
tree and so it will be visited last. 


Moving the Scan 

Three fundamental actions must be 
described for moving around within 
the tree: a move from the parent to 
the left child, a move from the par- 
ent to the right child, and a move 
from a child to its parent. The first 
two are easy and are described by 
the code in Example 1, below. 













int IsLeft(s) 


} 


Struct Scan *s- 


{ 


else 








struct Scan *s-; 


recturn(s——>child- —key < s  —parent-— —key): 


void GoParent(s) 


struct item *i-; 
if (IsLeft(s)) 
i = s—>parent—>llink | s—>child: 


. i = s—>parent— >riink {| s—>child: 


s-->child = s~ ~—parent: 
s-——>parent = i; 


The third move is more interesting 
(see Example 2, below). You must be 
able to recover the parent's parent to 
implement a move from the child to 
its parent. To do so, you must deter- 
mine whether the child is a left or 
right child so you can XOR with the 
proper link field. Naturally, the Is- 
Left function needs to be modified if 
the necessary position information is 
coded differently in the tree, as 
would be the case for height-bal- 
anced trees that allowed nonunique 
keys. 

Notice that the procedures for 
these three actions are not recursive 
and do not require the use of a stack 
for back-pointers. 

Once the three fundamental ac- 
tions have been described, you can 
write procedures that will process 
the tree sequentially in either direc- 
tion asif it were a linked list. ’ll do an 
in-order traversal here—that is, visit 
the left subtree recursively, then the 
root, then the right subtree. First, you 
need to be able to move forward and 
backward within the tree’s list, as 
shown in Example 3, page 39. Both 
these procedures are designed to 
stop at the root item to make it easy 
to test for the ends of the tree’s list. 

To start sequential processing, you 
first have to locate the head or tail of 
the list: 


void ToHead(s) 
struct Scan *s; 


{ 


ToRoot(s); 






Example 2: Moving from a child to its parent 
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while (s—->child—>llink != 
s—> parent) 
GoLeft(s); 


void ToTail(s) 
struct Scan *s; 
{ 
ToRoot(s); 
GoBak(s); 


Inserting an Item 

Unlike the case for a linked list, new 
items cannot be inserted at arbitrary 
places within the tree; instead, new 
items must be added to the tree in 
such a way that the tree remains 
sorted. 

In the insertion procedure shown 
in Example 4, below, the scan is 
passed to identify the tree in which 
the item is to be inserted. The tree is 
traversed (not sequentially!) until the 
proper insertion point for the item is 


void GoFwd(s) 
struct Scan *s; 


{ 
{ 


GoRight(s); 


while (s- >chiid——ilink i= s— parent) 


GoLeft(s); 


} 


else 


{ 


while ( !AtRoot(s) €& !IsLeft(s)) 


GoParent(s); 
if ( [AtRoot(s)) 
GoParent(s); 
} 


3 


void GoBak(s) 

struct Scan *s; 

L 

— if (s-~ >chiid-—ilink i= 
{ : 


GoLeft(s); 


while (s-— >chilid— >rlink !=s—>parent) — 


_ GoRight(s); 
} 
else 


{ 


while ( !AtRoot(s) && IsLeft(s) ) 


GoParent(s); 
if ( !AtRoot(s)) 
GoParent(s); 





Example 3: Moving backward and forward within the 


tree’s list 
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if (s—>child— >rlink != s-—>parent) 


s—>parent) 


found. The item is then inserted as a 
leaf of the tree, with no children of 
its own. First, the appropriate link 
field of the item’s parent is set to 
point to the new item (using XOR), 
and then the item’s links are set to 
point back to its parent. Finally, the 
scan is returned with the new item 
2s the current active child. 


Deleting an Item 

Deleting an item from a binary tree is 
much more complicated because the 
resulting items must still maintain 
the binary structure and sorted ar- 
rangement of the tree before the 
item was deleted. 

In my implementation, if the item 
has only one child, then I delete it by 
pointing its parent to the nonempty 
subtree, and vice versa. If the item 
has two children, I delete the item by 
removing it and replacing it with the 
greatest item in the left subtree. This 
item will have at most one child (a 
left child), and so 
the item can be re- 
positioned with a 
minimum of ma- 
nipulation of the 
link fields. Thus, 
| the procedure 
used here must 
handle four cases: 


1. The item to be 
deleted has no 


children (an item 
has no children if 


{ 


else 


its link fields are equal to each other 
because both would point back to the 
item's parent). 

2. The item has a right child but no 
left child (an item has no left child if 
the left link equals the pointer to the 
item's parent). 

3. The item has a left child but no 
right child. 

4. The item has both a left and a right 
child. There are two possibilities: 

a. If the left child has no right child of 
its own, then the left child replaces 
the item and picks up the item’s right 
subtree. 

b. If the left child has a right child, 
you travel down through right chil- 
dren as far as you can go to locate the 
greatest item less than the item to be 
deleted. 

These cases are more difficult than 
usual, even for a tree delete routine, 
because not only must parent point- 
ers be adjusted to point to their new 
children but also child pointers must 
be adjusted to point back to their 
new parents. This means testing to 
make sure the children exist before 
accessing their link fields. 


When the deletion procedure (see 
Listing One, page 66) is called, the 
node to be deleted is pointed to by 
s—>child. The scan is set back to the 
parent (by a call to GoParent) before 
the routine returns so that no scan is 
ever returned with a NULL child (be- 
cause the child item of the scan is the 
item being visited). In fact, GoParent 


void Insert(i,s) 
struct [tem *i; 
struct Scan *s; 


ToRoot(s); 
while (s—>child ! = NULL) 
if (i- key — s— a 
GoLeft(s); 


GoRight(s); 


if (i-— >key < s~ ~—parent— >key) 
s— >parent—>llink /= i; 
else 
s—>parent—>rlink{t=i; 


i—>llink = s——parent; 
4- >rlink = s- ~parent; 
S-— >—chiid — i; 
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XOR CHAIN 
(continued from page 39) 


is called early in the procedure, be- 
fore any pointers are rearranged. 


Conclusion 

As with any arbitrary binary tree 
system, it is possible for the tree to 
become quite unbalanced after sev- 
eral insertions or deletions, degrad- 
ing the performance of the system. A 
good question is whether the same 
idea could be woven into an AVL 
height-balanced tree system such as 
that discussed by Allen Holub (DDu, 
August 1986, page 20). The answer is 





Add C++ to 
your favorite 
C Compiler 


¢ Object-oriented C 


¢ Strong type-checking 


¢ Works with your 
present C Compiler 


no, not in the form presented here. 
My routines rely heavily on the fact 
that the key of any item is strictly 
greater than the key of its left child. 
This cannot be guaranteed in an AVL 
tree if nonunique keys are allowed. 
In that case, it would be necessary to 
use the alternative approach I men- 
tioned earlier: code a bit in each item, 
marking it as either a left child or a 
right child. With this modification, 
height balancing is possible. — 
Another interesting implementa- 
tion would involve B-trees and other 
generalized tree structures. Such im- 
plementations are possible with 
unique keys, or with a few code bits 
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added to each tree item, and can be 
coded in much the same way as the 
examples shown here. 

Finally, I should say a few words 
about another nonrecursive travers- 
al method—namely, threaded trees. 
The main problem with this tech- 
nique is maintaining the threads as 
items are added to and deleted from 
the tree. By their very nature, 
threaded links are links to items that 
usually are not adjacent to the item 
being added or deleted, and so there 
are very few easy cases in the add 
and delete algorithms. I will leave it 
to you to determine which has the 
more substantial overhead. 

A wise instructor once said, ‘‘Nine- 
ty-nine percent of all programs using 
recursion could be written more ef- 
fectively without it.”” The XOR chain 
technique makes it possible to apply 
this maxim to tree structures as well. 
With a little thought and creativity, 
you should be able to customize 
these ideas to fit your needs. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600, ext. 
215. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 
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THE ADA 


WORLD HAS 


VALIDATED 


Meridian’s AdaVantage™ v2.0 
compiler is a complete 
implementation of the Ada® language 
that has been validated on the 

IBM PC/XT, IBM PC/AT, and the 
Zenith Z-248. Most of the 
representation clauses and 
implementation-dependent features 
are also available including 


A pragma pack 

asize specification 

a task storage size 

a fixed point small 

arecord representation clauses 
a address clauses 

a package system 
arepresentation attributes 

a pragma interface 

a unchecked storage deallocation 
aunchecked type conversions 


The compiler includes a complete set 
of utilities for managing the Ada 
program library and all of the 
standard packages including text_io, 
system, and calendar. 


BEST PRICE 
PERFORMANCE 


The Meridian AdaVantage 

compiler demonstrates the best 
price/performance of any PC Ada 
compiler. The compiler sells for $795 
in single quantities and it compiles 
about 1000 lines per minute on an 
IBM PC/AT. 





In addition to the production 
compiler, two other versions are 
available for general training and 
student use. The AdaTraining™ 
compiler sells for $395 and is 
intended for corporate and university 
educational environments. The 
AdaStarter™ compiler, priced at $129, 
incorporates all of the features of the 
AdaVantage production compiler, 
with certain limitations on the number 
of library units and the number of 
lines per compilation unit allowed. 
The full price of the AdaStarter 
compiler can be applied to a later 
purchase of the AdaVantage 
production compiler. 


ADDITIONAL 
PRODUCTS 


Two optional packages, priced at $50 


each, that provide DOS environment 
Support and miscellaneous utility 
routines are currently available. A 
source-level debugger and Ada 
editor will be available this Fall. 


Ada is a registered trademark of the U.S. Government (AJPO). AdaVantage, AdaTraining, and AdaStarter are 
trademarks of Meridian Software Systems, Inc. References to other computer systems use trademarks 


owned by the respective manufacturers. 
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CONFIGURATION 


The compilers all run in a standard 
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memory, a hard disk, and DOS v2.1 or 
higher. 
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WINDOWS FOR DATA” 


The first choice 





of professional 
C programmers 





“Windows for Data is the best 
programming tool I’ve ever used. 
It’s the most flexible I’ve seen. 
Whenever I’ve wanted to do something, 
I've been able to find a way.” 


Professionals choose our tools because 
they are designed, crafted, and supported 
for professionals. Here at Vermont Creative 
Software, we understand that performance 
and pleasure in programming derive 
from more than a long list of functions. 
Windows for Data provides: 


PROFESSIONAL FLEXIBILITY: 
Our customers repeatedly tell us how 
they've used WFD in ways we never imagin- 
ed - but which we anticipated by designing 
WED for unprecedented adaptability. Vir- 
tually every capability and feature can be 
modified to meet special needs. You will be 
amazed at what you can do with WFD. 


PROFESSIONAL PERFORMANCE: 
Screen output is crisp and fast. Windows, 
menus, and data-entry forms snap up and 
down from the screen. WFD is built upon 
and includes Windows for C, the win- 
dowing system rated #1 in speed and 
overall quality in PC Tech Journal (William 
Hunt, July 1985). 


PROFESSIONAL RELIABILITY: 
An unreliable tool is worse than no tool at 
all. VCS products are known in the industry 
for their exceptional reliability. Ask anyone 
who owns one. 


PROFESSIONAL DOCUMENTA- 
TION: Over 600 pages of documentation 
provide step-by-step explanations for each 
major application, a reference page for each 
function, listings of functions alphabetical- 
ly and by usage, and a fully cross-referenced 
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index. Extensive tutorials and demonstra- 
tion programs assist learning. 


PROFESSIONAL TECHNICAL 
SUPPORT: The same expert program- 
mers that develop our products provide 
prompt. knowledgeable technical support. 


PROFESSIONAL PORTABILITY: 
High-performance versions of VCS 
products are available for XENIX, 
UNIX, and VMS, as well as DOS. No 
royalties on end-user applications. 










OUR CHALLENGE AND 

GUARANTEE 
If you have an application where no 
other tool can do the job, try Windows 
for Data. If it doesn't help you solve 
your problem, RETURN FOR A FULL 
REFUND. YOU MUST BE SATISFIED. 


Ask for FREE DEMO DISKETTE 


Vermont 
Creative 

Software 
21 Elm Ave. 


Richford. VT 05476 
Telex: 510-601-4160 VCSOFT 


Tel.: 802-848-7731 
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WINDOWS FOR DATA 


for DOS, UNIX, VMS ... 
The complete windowing data entry, menu, 
and help system that does the hard job 
others can’t — we guarantee it! 


Pop-up data entry windows; field types for 
all C data types, plus decimals, dates, and 
times: auto conversion to and from strings 
for all field types; system and user supplied 
validation functions; range checking; re- 
quired, must-fill, and protected fields; free- 
form movement; multiple-choice field entry; 
scrollable sub-forms. Branch and nest win- 
dows, forms, and menus. 


Complete context-sentitive help system 
with pop-up windows and scrollable text. 


Pop-up, pull-down, scrollable, and Lotus- 
style menus. 


NEW FOR DEBUGGING: Exclusive 
VCS Error Traceback System auto- 
matically identifies the location and 
cause of program errors. Eliminates the 
need to code error checks on all function 
calls! VCS Memory Integrity Check- 
ing helps catch those hard-to-detect, 
memory-corruption errors. 


NEW FOR ERROR HANDLING: In- 
stall your own error handler to be called 
whenever a function detects an error. 


NEW FORM LAYOUT UTILITY sim- 


plifies form design. 
















ARTICLES 


Writing MS-DOS Device 
Drivers in C 


T 


Installable device drivers 
hardware independence as hard- 
ware-specific code is isolated in the 
driver. 

This article shows how to write 
the functions that implement a de- 
vice in C. To do this, I discuss the for- 
mat of a device driver and how to 
create a driver in this format using 
(mostly) object code produced by a C 
compiler. Some of the material is 
compiler specific and pertains to Az- 
tec C, but it should be portable to 
other C compilers (even to other 
high-level languages). The example 
device driver I present—prndrv.asm 
in Listing One, page 68—is a simple 
one that implements a parallel print- 
er and replaces the standard PRN de- 
vice. I've chosen a simple device de- 
liberately so that I can concentrate 
on how to construct drivers in C in- 
stead of on the details of a specific 
device and at the same time provide 
a real, working device driver that 
you can modify and experiment 
with on your PC. 


Request Header 

DOS communicates with its device 
drivers through a packet called a re- 
quest header, which is a formatted 
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he MS-DOS/PC-DOS installable — 
device driver facility has | 
been available since Version | _ 

2.0 and allows you to add extra de- | 
vices to your system without making | 
any modifications to DOS itself. You | 
specify devices to be added in an | _ 
ASCII file called CONFIG.SYS using the | __ 
command device =XXXXXXXX.YVY. 
allow L 








by Andy Klein 





___| inthe header. It is the interrupt func- 


tion that actually does the work of 


aS - the device, and it also has the task of 
| setting things up so that you can call 
_| C compiled functions. DOs always 


| calls the strategy function, then im- 


tains the command code that the 
driver is to perform, a status word 
that the driver uses to report the suc- 
cess or failure of the operation back 
to DOS, and the length of the packet. 
The header is followed by data need- 
ed for the operation, which varies 
depending on the operation to be 
performed. For my driver, this vari- 
able area can be considered fixed, 
containing the segment, offset, and 
number of bytes to transfer. Reg_hdr 
is a C structure that is typedefed in 
rh.h (Listing Two, page 71) and is 
used by the driver implementation 
functions to access the request head- 
er data. An important task you need 
to accomplish is to make the request 
header addressable by C compiled 
functions (discussed later). 

When DOS calls a driver to perform 
a task, it does so in two separate 
stages. The first stage is referred to as 
the device strategy and occurs when 
the device is passed a long (seg- 
ent:offset) pointer to the request 
header in the es:bx register pair. The 
device does not perform the request 
at this stage—it just saves the pointer 
to the request header. The next stage 
is called the device interrupt. It re- 
ceives no parameters; instead, the in- 
terrupt function retrieves the previ- 
ously saved pointer to the request 
header and then performs the opera- 
tion indicated by the command code 





| mediately calls the interrupt func- 
_| tion. Following this pattern, device 


drivers have two entry points, called 


a a ge the strategy and interrupt routines. 
block of system memory that con- 


These entry points are implemented 
in prndrv.asm as labels dev_strategy 
and dev_interrupt. 


Format of a Driver 

DOS device drivers must be in a spe- 
cific format in order to be incorpo- 
rated into MS-DOS. This format differs 
from that of a .COM or .EXE file. Driv- 
ers must start with a device header 
that starts at offset Oh from the start 
of the file, and all the logical seg- 
ments of the driver must be in one 
physical segment, such as a .COM file, 
because the driver is simply loaded 
into memory by DOS—it will not get 
any of the segment fix-ups that an 
-EXE file receives when loaded. The 
largest hurdle you'll face when writ- 
ing your first device driver is to get it 
to load at boot time without hanging 
up the computer. Once you get past 
this point, the rest is cake. 


Device Header 

The device header’s purpose is to 
provide DOs with the attributes of the 
device, the offsets of the strategy and 
interrupt entry points into the driv- 
er, and the name of the device or the 
number of units it controls. The 
fields of the header are: 


* pointer to next header (4 bytes) 

¢ attribute (2 bytes) 

* pointer to strategy routine (2 bytes) 
* pointer to interrupt routine (2 bytes) 
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* name or number of units (8 bytes) 


The pointer to next header is.a 4- 
byte field that DOS uses to store a 
pointer to the next driver in the 
chain of all drivers. These four bytes 
should be filled with Oxff in 
prndrv.asm to indicate to DOS that 
there is only one driver in this file. 

The attribute field is bit-mapped as 
shown in Table 1, page below. My 
example driver is a character device 
and has bit 15 set; the others are all 
Os. 

The name or number of units de- 
pends on the driver type. If the driv- 
er is a character device, then this 
field is an eight-character name, left- 
justified and padded with spaces. 
The name assigned here will be the 
name DOS uses for the device. When 
character devices are loaded at boot 
time, installable devices are linked 
into the chain of all drivers before 
the default or built-in character driv- 
ers. When DOS searches this linked 
list for a named driver, it stops on the 
first match, so if you use the name of 
a default driver as the name of your 
driver, you replace the default driv- 
er with your own. This is exactly 
what the example driver does, re- 
placing the default PRN device with 
my PRN device. 

Note that there is one exception to 
this rule—the NUL device cannot be 
replaced because it is the starting 
point of the linked list of devices. 
Block devices do not have names; in- 
stead, they are assigned drive letters 
by DOS in the order in which they are 
loaded. Unlike character device driv- 
ers, the default block drivers are 
loaded first and cannot be replaced. 
A block driver can control multiple 
subunits, and the number of units 
controlled is entered in this field for 
block devices with the last 7 bytes of 
the field filled with spaces. The num- 
ber of subunits can be overridden by 
the initialization function for block 
devices. An example of the use of 
subunits is a fixed disk controller that 
can have two fixed disk drives at- 
tached. 


Device Driver Start-Up Code 
In order to write the functions that 
implement a device in C, a few spe- 
cial things have to be done. First, be- 
fore any C compiled functions are 
called, the environment (segment 
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registers and stack pointer) must be 
set up to correspond with what the 
compiler-generated code assumes. 
Normally this setup is done by the 
start-up code that is provided with 
the compiler, which for Aztec C us- 
ing the small model is in the Aztec 
function sbegin.asm. All Aztec C 
compiled functions make an exter- 
nal reference to a function called 
$begin, causing the linker to drag it in 
from the standard library c.lib. $be- 
gin in turn makes an external refer- 
ence to Croot, which in turn refer- 
ences main. In the normal case, 
$begin sets up the environment and 


Installable 
character devices 
are linked into the 

chain before the 
default drivers. 


calls Croot, which then calls main. 
Other compilers follow the same pat- 
tern. 

Much of what is done in the com- 
piler start-up functions does not have 
to be replicated in the driver start-up 
code, including parsing argv( ), allo- 
cating a heap, getting access to the 
DOS environment variables, and 
other initializations that are required 


for some library functions. There is a 


penalty exacted for this approach, 
and it is that your C functions cannot 


call library functions that require 
some setup that you have not done— 
notably, malloc( ), free( ), and all 
those functions pertaining to I/O are 
off limits. Also, variables declared 
outside functions must be initialized 
to some value. An essential part of 
the compiler’s start-up that must be 
incorporated into the device driver 
start-up code is establishing a stack 
frame. 

In the example driver, the start-up 
tasks are accomplished by replacing 
the normal compiler start-up code 
with the device interrupt function. 
This function takes care of setting up 
the segment register to what Aztec C 
expects. There is no main( ) because 
the entry point is the label dev_inter- 
rupt in prndrv.asm. It is necessary to 
provide a function called $begin to 
prevent the linker from reporting an 
error, so prndrv.asm has a function 
of this name but it is never called. 
Code generated by earlier versions of 
Aztec C also has a reference to a func- 
tion called $cswt, which is also in 
prndrv.asm. Users of other compil- 
ers will have to replace these func- 
tions with whatever their compiler 
demands. If the source for the start- 
up function for your compiler is 
available, it is fairly straightforward. 
(Compiler publishers that don’t make 
this source available significantly 
limit the applicability of their prod- 
ucts for serious system develop- 
ment.) You can discover much of 
what your compiler does by compil- 
ing a few functions and getting the 
compiler to output the assembly-lan- 
guage result of the compilation. 


Device Strategy Function 

The strategy function is called witha 
long pointer to a request header in 
the es:bx register pair. The strategy 
function does not perform the re- 





Table 1: Bit mapping of the attribute field 
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“The Ada programming language shall be the single, 
KOTOR Roh RR language for... 


..allcomputers that are integral to, 
physically a part of, dedicated to, or 
essential in real time to a performance 
of the mission of weapon systems... 
used forspecialized training, diagnostic 
testing and maintenance, simulation, 
or calibration of weapon systems... 
used for research and development of 
weapon systems...Use of validated 
compllers is reguired...this directive is 
effective immediately.” 

—Dob Directive 3405.2, 3/50/38 / 


..Defense computer resources used in 
intelligence systems, for the command 
and control of military forces...all major 

SO) [N,(6/KcAU AO LCC SMMC NOI MCIODICCr 
tions (some exceptions) in keeping with 
the long range goal of establishing Ada 

as the primary DoD higher order lan- 
guage...waivers to the policy...shall be 
strictly controlled and closely reviewed... 
MAIO On AR AION AMMA 6 (6c 
—DoD Directive 3405.1, 4/2/87 
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@ Special Introductory Offer For 
Apollo, Altos, H-P and Sun Users 


New Alsys Toolset For 68000 Ada 





Builds Unique Project Environment 


Organizations serious about the 66OXO 
architecture, and serious about working 
with the government, wanta lot more than 
Just validated Ada compilers. They want 
quality solutions; production quality com- 
pilers and quality programming tools. 
Just what Alsys offers. Alsys’ new 
68000 Ada Developer's Toolset includes: 
¢ AdaPROBE, a unique source-level sym- 
bolic debugger and program viewer; 
¢ Cross-Referencer, an inter-unit cross- 
referencing utility; 
¢ Reformatter, a pretty printing tool for 
reformatting source files to selectable 
conventions; and 
¢ AdaMAKLE, an automatic recompilation 
facility. 
Consider, too, all those special Ada 
“manager tools” that are part of the 
Alsys Version 5 compilation system: 
the Family Manager, the Unit Manager, 
and the Library Manager. 
logether, they implement the new 


Alsys Multi-Library Environment that 
allows teams of programmers to share 
thousands of logically organized 
compilation units. 

Alsys 68000 compilers are in a class 
by themselves; highest code quality, 
maturity, reliability, robustness, superior 
optimization technology, unexcelled error 
messages...And now, with the new 
development tools, they are at the core of 
an Ada project environment unique in 
the industry. 

Here is our special INTRODUCTORY 
OFFER. Between now and October 31, 
1987, order any of our 66000 Ada 
compilers and we will include the com- 
plete Toolset FREE. AAAPROBE, Cross- 
Referencer, Reformatter, AAAMAKE. 

Ada is Now. Alsys solutions are now. 
Call or write. 


USS 





In the US: Alsys Inc., 1432 Main St., Waltham, MA 02154 Tel: (617) 890-0030 
In the UK: Alsys Ltd., Partridge House, Newtown Rd., Henley-on-Thames, Oxon RGQ IEN Tel: 44 (491) 579090 
In the rest of the world: Alsys SA, 29 Avenue de Versailles, 78170 La Celle St. Cloud, France Tel: 53 (1) 5918.12.44 


YES, I’m interested in your Introductory Offer. Send more 











The Many Facets of information on the Toolset and your 68000 compilers. 
: Ou ality | Send me your free brochure on The Many Facets of Quality. 
ao | - Name 
ce Company 
Address 
CR a ee ee 
Phone 








Alsys, Inc. * 1432 Main Street * Waltham, MA 02154 
CIRCLE 273 ON READER SERVICE CARD 
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*Ada is a registered trademark of the U.S. Government (AJPO). 








DEVICE DRIVERS 
(continued from page 45) 


quested function; it just saves the 
pointer to the request header and 
then returns. The request header 
pointer segment is stored in the code 
segment variable req_hdr_seg, and 
the offset is stored in the code seg- 
ment variable req_hdr_off (see the 
listing). 


Device Interrupt Function 
The device interrupt function is 
where the command stored in the re- 





quest header is carried out. Although 
this function is called the interrupt 
function, DOS invokes it as a far call as 
opposed to a processor interrupt. 
This function has seven crucial tasks 
to perform, some of which replace 
the C compiler’s start-up code. The 
listing of prndrv.asm has the sections 
marked as ;STEP 0, ;STEP 1, and so on, 
where: 


¢ STEP 0 saves the machine state. On 
entry, the interrupt function saves 
the machine state by pushing all the 
registers onto DOS’ stack, which has 


with ¢ -terp 


Our C Interpreter provides the finest and fastest development environment for C 
and is compatible with your compiler. 


e Fast Semi-Compilation -- We convert source 
to tokens faster than any product (existing or 
announced) on the market. 

e Interactive Debugging -- See your code come 
to life as you single step, set breakpoints, call 
functions, view data, execute any C expression. 

e Complete Language -- We’ve always 
supported full K&R, now we support the 
usual ANSI enhancements as well (structure 
assignment, enumerations, etc. ) as well as 
keywords cdecl and far. 

e Multiple Modules -- an accurate reproduction 
of a typical multiple module compiler 
environment brought to you in a high speed 
interactive interpreter. 

e Multi-file, configurable editor -- features fast 
screens, inter-file copies and moves, etc. etc. 
Spring from file to file, module to module. 
Develop as you never did before. Completely 
reconfigurable. 

e Complete Compatibility -- For each supported 
compiler we provided a separate C-terp with 
separate documentation (each compiler is a 
little bit different). We provide a batch file to 
link in your compiler’s entire library. We 
make sure the data alignment, bit field order, 
and pre-processor variables are compatible 
with your compiler. We care about 
compatibility. 

e Shared symbols option -- for those large 
75-module applications. 
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e Software Paging -- for those big jobs. Our new 
and improved paging can now access Extended 
Memory directly. 

e Pointer checking -- An out-of-bounds 
assignment will put you into debug mode with 
the offending statement highlighted. 

e Object module support -- Link in not only your 
compiler’s library but your own libraries (large 
model), assembler routines, and commercial 
libraries such as Essential Graphics, HALO, 
Windows for Data, Greenleaf, Vitamin C, etc. 
Our function pointers are compatible with 
compiled C (a must for using commercial 
libraries) and we support call in (from compiled 
to interpreted) as well. 

e Numerous other features including our own 
batch mode, dual display and graphics support, 
tracing and 8087/80287 as well. 


Order C-terp TODAY (Specify Compiler) 
Microsoft, Lattice, Aztec, C86, Mark Williams, Xenix 


PRICE: MS-DOS 2.x and up - $298 
Xenix 286 System V - $498 
VISA, MC, COD * 30 Day Money Back Guarantee 


* C-terp is a trademark of Gimpel Software. 


ELMEL Serr hake 


3207 Hogarth Lane * Collegeville, PA 19426 
(215) 584-4261 


enough space to have the registers 
pushed onto it. Then the DOS stack 
frame—the ss and sp registers—is 
saved in the code segment variables 
caller_ss and caller_sp. 

¢STEP 1 gets the driver’s segment. 
The first step in establishing ad- 
dressability is to get the driver's seg- 
ment address and hold it in the ax 
register. Remember that the driver's 
segments are all in one physical seg- 
ment, so when the driver is called, 
the value of the cs register is the seg- 
ment value for all segments. 

¢ STEP 2 makes the request header ad- 
dressable. The long pointer to the re- 
quest header was previously saved 
in the strategy function. Now the in- 
terrupt function uses this informa- 
tion to copy it into the private re- 
quest header. 

¢ STEP 3 finishes establishing ad- 
dressability. The interrupt function 
moves the segment address of the 
driver from ax into the ds, es, and ss 
registers; gets the offset of the private 
stack and puts it into sp to establish 
the stack frame; and finally, sets the 
bp register equal to the sp register as 
this condition is needed to call C 
functions that rely heavily on bp. 

¢ STEP 4 calls the first C function. Now 
the interrupt function is ready to call 
the first C function, which will in 
turn call others to perform the re- 
quested task. It calls a function 
named driver_functions(cmd_code) 
and passes the command code from 
the request header as a parameter. 
Calling a C function from assembler 
requires pushing the parameters 
onto the stack, calling the function, 
and removing the parameters from 
the stack. 

¢ STEP 5 updates DOS’ request header. 
The task DOS wanted the driver to 
perform has finished. The status of 
the operation is stored in the address- 
able copy of the request header 
along with any function-specific re- 
turn info. In order for DOs to get this 
info, the request header must be cop- 
ied back to the request header that 
DOS gave a pointer to way back in the 
strategy function. 

* STEP 6 cleans up. To clean up, the 
original DOS stack frame that was 
saved in caller_ss and caller_sp must 
be restored, then the registers push- 
ed onto DOS’ stack must be popped. 
Finally, the interrupt function re- 
turns, and its tasks are finished. 
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Weis pecan 


Clarify and document your source listing and get _ 
an “organization chart” of your program’s structure 


with two NEW utilities from Aldebaran Laboratories, for C, BASIC, 
Pascal, d(BASE® FORTRAN and Modula-2 programmers 


“Occasionally, a utility 
comes along that makes a 
programmer’s life much 
easier. SOURCE PRINT 
is such a program. 

It contributes to the 
programmer’s job by 
organizing code into a 
legible format and by 
helping to organize the 
documentation and 
debugging process.” 


— PC Magazine 
Sept. 16, 1986 


Source Print and Tree Dia- 
grammer both have easy-to-use 
menus with point-and-shoot file 
selection, and let you search for 
files containing a given string. 
For IBM PC and compatibles 
with 256K. 

Join thousands of program- 
mers who are working more 
efficiently using Source Print 
and Tree Diagrammer. Order 
these indispensable tools today. 
We ship immediately, and 
there’s no risk with our 60-day 
money-back guarantee. Order 
both and save. Only $155.00. 


800-25 7-9 713 Dept. 58 


In California: 


800-257-5774 dept. 58 


MasterCard, VISA, American 
Express, COD. Add $5 for 
shipping/handling. 


or see your local dealer! 


Source Print and Tree Diagrammer are 
trademarks of Aldebaran Labs. dBASE is 
a trademark of Ashton Tate. Prices subject 
to change without notice. 
















Source Print” 


organizes your source code, simpli- 
fies debugging, and makes documen- 
tation a snap! It lists one or more 
source files with informative page 
headings and op- 
tional line numbers, 
while offering 
invaluable features: Sah 

The Index 3 Pet 
(Cross-Reference 
list) saves you time 
by showing exactly 
where variables are 
used and where functions, pro- 
cedures, and routines are called. 
Locations where new 
values may be assigned to 
variables are shown, making it easy to track down that 
mysterious value change. 

Structure Outlining solves the problem of hard-to- 
see nested control structures by automatically drawing 
lines around them. 

Automatic Indentation of source code and listings 
reduces your editing time and ensures indentation accuracy. 
Plus... Source Print generates a table of contents 
listing functions and procedures. Keywords can be printed 
in boldface on most printers. Multi-statement BASIC lines 

can be split for readability. Functions and procedures can 
be drawn by name from one or more source files to forma 
new file. 


Tree Diagrammer™ 


shows your program’s overall organization at a 
glance. Ordinary program listings merely display 
functions, procedures, and subroutines sequen- 
tially, but do not display the relationships be- 
tween these routines. Our revolutionary new 
Tree Diagrammer automatically creates an 
‘organization chart” of your program showing the 
hierarchy of calls to functions, procedures, and 
subroutines. Recursive calls are indicated and 
designated comments in the source code 
will appear on the chart. 

Tree Diagrammer helps you organize your 
program more logically. And you'll be amazed at 


how easy it is to debug when you $7 790 


see how your routines interact. 






ues 
Now W EWN 
with FORT ae 


= 5 
170 C = 50: WHILE K <= 1000: TB(K) = 0: K = K + X: WEND 
180 GOSUB 2000 
190. XT(C) = X: T2(C) = K: C=C +1 
200 NEXT INDX 





—FOR INDX = 1 TO 100 
160 IF TB(INDX) = 0 THEN X = 5 
C = 50 


WHILE K <= 1000 
TB(K) = 0 
Ks :K'+ X 
-WEND 






Before 


{ 
while (iar < nres && ares({iar)(0] == c) 


if ((d = ares({iarj(1]) == 0) 


Wed 12-31-86 07:22:03 INDEX (Cross Ref) 
all identifiers 


inrecord 4.191 9=396 19.825 19=826 
21.889 22.922 22.953 23=978 
23.990 





ins 53.2293 53=2309 53=2319 53.2325 


54.2331 54.2332 54.2336 5422346 
00 54.2354 54.2364 54.2365 54.2366 
intext 4.193 9=395 43.1796 43.1815 


43=1820 45=1902 
Index 





Tue 01-06-87 00:28:44 
01-06-87 00:05:14 SALES.C 





Aldebaran Laboratories 3339 Vincent Rd. Pleasant Hill,CA 94523 415-930-8966 


YES Rush ME O Source Print @ $97. _________ [] Tree Diagrammer @ $77. 
C] Both $155. Ship/Handling $5. For CA add 6% tax _____________ Total 

Name 
Company 
Address 
City State 
[]Check enclosed [IVISA []MasterCard [(] American Express 

Card# 

Signature Phone # lO 

















Zip 
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APPLICATION IN'TEN MINUTES. 
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s2er 
Actorfnalyzer 


ndo 
fe Inmxitialize mouse dragging. */ 
Ref teginbrag{self, uP, point} 
{ Call Setlapturet( hind} ; 
draghf :- getCLoantext{self); 
navetatpoint, dragBdl); 


eribdle 
leaolVindeu 
Broauser 
Inspector 
Text Uindow 
Editilinaday 
VorkEdait 
yi ESE Bh oe Ne 
f» Create a new Popup windeuw. */ 
Def neulself, par, nenuNane, wane, rect } thend, sRect) 
f 





if not(sRect i= rect) 

then sRect z= rect{(?78, 88, 4578 + x€screenSize())/4, 
niatscreenSize().y, 245 « y{screen$ize())/4)); 

endif 5 

thelind := neu{self Behavior); 

loadiienu({thellind, nenuNane); 

treate(thelind, par, uNane, sRect, US PQPUPUINDOY) ; 

Call Setindowllord{handle(thellnd), @, hash(thelind)); 

theUind paintStruct <c° statie(neu(Struct, 32)); 

igitithetind); 

“thellad 








Actor™ is a new language that combines Microsoft® Windows with 
object-oriented programming. This means you can produce mouse and win- 
dow applications very quickly. 

For example, we created a simple “paint” program, and used it to draw 
the Actor logo you see on the screen. The whole program only took ten lines 
and ten minutes. Part of it is in the middle window on the left. 

Above, you see the commands that initialized the paint window and 
made it appear on the screen. Below, some code that’s built into Actor, 
specifying window behavior. Through a process known as “inheritance.” it’s 
called into play automatically. 

dry programming in this new way, and you'll never go back. 


And out about Actor. 
Call The Whitewater Group,(312) 491-2370. 


MICROSO 


Technology Innovation Center ANOS 
906 University Place, Evanston, IL 60201 
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DEVICE DRIVERS 
(continued from page 48) 





Implementing a Device 
Once you've completed the DOS de- 
vice start-up code, you need to write 
the functions that actually imple- 
ment the device. Each device will 
have its own unique requirements, 
and the implementor must be on inti- 
mate terms with the device to be con- 
trolled. The device presented here is 
extremely simple as devices go—be- 
ing a printer it is a character device 
that has output functions only. The 
start-up code does not change (except 
for the attribute word and device 
name, both in the device header) 
with the complexity of the specific 
device, however. 

After the start-up code is set up for 
calling C compiled functions, it calls 
driver_functions(cmd_code), pass- 
ing the command code from the re- 
quest header. Driver_functions( ) is 
in drvfunc.c (Listing Three, page 72). 
The function driver_functions( ) is 
implemented as a finite state ma- 
chine that calls the device implemen- 
tation functions indirectly. Function- 
_table is declared in drvfunc.c as an 
array of pointers to functions return- 
ing void, and this array is initialized 
to contain pointers to those functions 
that this device implements. Slots for 
unused functions are initialized to a 
pointer to bad_cmd(), a function 
that sets the request header status 
word to indicate an invalid com- 
mand (see error.c, Listing Four, page 
74). The command code is the state 
that selects which function to call. 

For those not familiar with an ar- 
ray of pointers to functions, here's an 
explanation: Each element in the ar- 
ray is a pointer to, or the address of, a 
function that (for an 8086 small mod- 
el) is an offset into the code segment. 
The index into the array determines 
which address to call, just as the in- 
dex into an array of integers deter- 
mines which integer to access. If you 
have the address of a function, you 
can call it indirectly as (void )(* func- 
tion_pointer )( );, and by extending 
this to an array, you get (void )(* func- 
tion_pointer_array([index] )( );. 

There's nothing really esoteric 
about it—assembly-language pro- 
grammers Call it a jump table. This 
construct produces efficient code, 
which is what you want in a driver. 
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Changing Your Address? 


To change your address, attach your address label from the cover 
of the magazine to this coupon and indicate your new address below. 


Name 
Address 
Address 


Apt. # 
City State 
Zip 


Mail to: Dr. Dobb’s Journal, PO Box 27809,San Diego, CA 92128 
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WONILL FUNG IFINEIN 


A POWERFUL SCREEN AND WINDOW MANAGER 


UNIX’ XENIX’@  #MS-DOS’#  PRIMOS & 


JYACC’S FORMAKER makes it easy to design, develop, test and document inter- 
active applications. FORMAKER includes a utility for creating and maintaining 
forms and windows and a subroutine library to provide access to them. 













m Reduced Development Time 
m Less Complex Programs 

m Advanced User Interface 

m Easy Form Creation 
gw System Prototyping 
g@ Self-Documenting 

mw Application Portability 

















@ Display Forms 
g Windows Management 
mw Edits and Validations 
gw Display Prompts 

m Error Messages 

@ Save Data 

m Restore Data 
m Cursor Control 





















mw Easy-lo-Use 
m Free-Form Design 
m ‘Test Mode” 

m Pop-Up Windows 
gw Interactive Form Editing 





CALL FOR 
A FREE 
JYACC, INC. is a project-oriented computer consult- 
ing firm providing services in most areas of system DEMO DISK 
design and implementation. Call us today to discuss 
your specific needs and applications. 


Available for the IBM PC/XT/AT and compatibles, 
AT&T 7300 and 3B family, DEC Vax and Micro VAX, 
NCR Tower, Prime 50 series, Altos 986, Fortune 
32:16, Gould Concept series, HP 9000 and Ti PC 


JSACT ING 


family. 116 John Street 
New York, New York 10038 
212-267-7722 
Outside NY call 1-800-458-3313 : 


UNIX is a trademark of AT&T 
XENIX and MS-DOS are trademarks of Microsoft 
PRIMOS is a trademark of Prime Computer 
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DEVICE DRIVERS 
(continued from page 51) 


The alternative is a switch statement 
or a series of if. . . else pairs that com- 
pile into a lot of compare/jump in- 
structions. Note that all the functions 
to which pointers are placed in the 
array must take the same number of 
parameters or chaos will result. In C, 
a function name (without the paren- 
theses) evaluates to a pointer to that 
function. 

All DOS device drivers must imple- 
ment an initialization function— 
called only once when the driver is 
first loaded. Mine is called init( ) and 
is found in init.c (Listing Five, page 
74). The initialization function for a 
character device must return to DOS a 
long (segment:offset) pointer to the 
end of the driver and set the done bit 
in the status word. The ending ad- 
dress of the driver is the segment ad- 
dress obtained by a call to show_cs( ) 
(in show_cs.asm, Listing Six, page 75) 
and a short pointer (offset only) to an 
unsigned integer called _Uend. 
—Uend is inserted by the Aztec link- 


er, In, at the end of the uninitialized 
data segment. Those using other 
compilers/linkers need to replace 
this by creating another module 
called end.c or whatever with a glob- 


All device drivers 
must include an 
initialization 


Junction. 


al unsigned called _Uend and make 
this the last module in the list: when 
you link. My driver also displays a 
message on the screen, resets the 
parallel port, and sets the printer 
font to elite (12 characters/inch). For 
a different device, the initialization 


will be quite different. If this were a 
block device driver, in addition to all 
this, the initialization function would 
have to set the number of units and 
return a long pointer to an array of 
BPBs (BIOS parameter blocks). 

Being a printer, the primary func- 
tion this device performs is output( ), 
found in output.c (Listing Seven, 
page 75). Here you get from the re- 
quest header the number of bytes to 
transfer and the segment:offset at 
which you find the first byte. For 
each character, the output function 
gets the character, sends it to the par- 
allel port by calling char_2_prn( ) (in 
priport.asm, Listing Eight, page 77), 
checking for an error return status, 
and finally incrementing the trans- 
fer offset and character transferred 
count. If an error condition is re- 
turned by char_2_prn( ), the error 
handler function error( ) is called: 
otherwise, when you have finished, 
you set the done bit in the request 
header status word. Again, this is a 
simple device, but you apply the 
same technique to develop drivers 
for more complex devices. 
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personality. 


"A while back | got a SemiDisk to help me with 
my database work. A SemiDisk is like a RAM- 
disk only a whole lot better. It doesn't sit in my 
main or EMS memory, and, using the Battery 
Backup, it's like permanent storage. 


‘That SemiDisk makes light work of the jobs 
that were sending my hard disk to an early 
grave. And SemiDisk has no head to crash; 
no moving parts to wear out. With all the time 
it saves me, | figure it paid for itself in just a 
couple of months. 


“Then | heard programs like Microsoft Win- 
dows could use my SemiDisk for temporary 
files instead of using EMS. So | moved them 
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over to the SemiDisk, too. The quiet speed of 
it is almost elegant! 


“My boss wanted to try my SemiDisk on the 
company LAN server, but | told him to get his 
own. A couple of days later, he was wearing 
a grin as big as mine. | guess he likes his 
SemiDisk too. 


“One morning | booted up my computer and 
there was my word processor waiting for me 
on the SemiDisk. | swear | didn’t put it there! 
After | tried it, | knew it was there to stay. 


“Meanwhile, I've found a new use for my hard 
disk, too. It's great for backing up my 
SemiDisk!” 
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I/O mapped SemiDisk goes in standard PC, XT or 
AT expansion slot. Priced at just $495 for 512K, 
$795 for 2Mb. Battery Backup $130. Up to 8Mb 
per drive. Call or write for further information or 
to place an order. 


SemiDisk 
End the waiting. 


SemiDisk Systems, Inc. 
P.O. Box GG 
Beaverton, OR 97075 
(503) 626-3104 
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Return Info 

Drivers return status information to 
DOS via the status word in the request 
header. This is represented by an un- 
signed integer called status in the re- 
quest header structure req—_hdr (see 
rh.h). Bit 15 is the error bit, and it is 
set to 1 if the driver needs to report 
an error condition to DOS, with the 8 
least significant bits holding the error 
code. Code to implement an error 
condition is in error.c, and for my 
printer driver, the only possible er- 
ror codes are those that are returned 
by the parallel port BIOS. This func- 
tion is called only when errors occur; 
otherwise, the driver functions set 
bit 8, the done bit, to 1 indicating to 
DOS that the device has completed its 
task successfully. 


Linking 

Linking the driver is different from 
linking a normal C program. You 
must make all the logical segments 
fall into the same physical segment, 
and the device header must be at off- 
set 0 in the file. One of the reasons 
why I use Aztec C is because its link- 


tools for UNIX™ and XENIX™. 


Get Grespphics Too! |n addition to 
an advanced screen management system 
and superior windowing capabilities, REAL- 
TOOLS offers user-defined graphics for 
you to draw, save, recall, copy and animate 


symbols and panels. 


So if you’re developing applications for the 
real world — get real productive. Get 


graphics. Get REAL-TOOLS. 






PCu 


Pioneering Controls Technologies, Inc. 
510 Bering Drive, Suite 300, Houston, Texas 77057 


(713) 266-8649 


™REAL-TOOLS is a trademark of Pioneering Controls Technologies, Inc 


™UNIX is a trademark of AT&T 
™XENIX is a trademark of Microsoft Corporation. 
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Set Rees. 


Get real productive with REAL-TOOLS, a 
general purpose set of “C” development 


Reei— 
Toes 


$99 Binary only. $549 Library source. $999 Complete source. 


er, In, can accomplish all the preced- 
ing tasks in response to a few com- 
mand-line arguments, making it a 
useful and powerful tool for dealing 
with the 8086 architecture. 

To link the driver using In, you 


type: 


In -t -b 0 -c O -o prndrv.com 
prndrv.o [list of files and libraries] 


where -t saves the symbol table in 
prndev.sym, -b 0 sets the base ad- 
dress to Oh (same as ORG QO), -c O 
makes the code segment start at off- 
set 0h in the physical segment, and 
-o prndrv.com means that the output 
file is prndrv.com (specifying an ex- 
tension of .COM causes all logical seg- 
ments to be in one physical segment). 
Again, users of other compilers/ 
linkers will have to adapt this to their 
systems. Hint: Try using a GROUP 
statement in prndrv.asm to cause the 
code and data segments to be joined 
into one physical segment, and re- 
member to take the offset into the 
group instead of into the segment 
when using the offset operator. 




























or across panels. 






value checking. 






MAMMOTH PROJECTS OFTEN FAIL 
WITHOUT THE RIGHT TOOLS. 




















COBOL spll’s powerful panel 
painter automatically sets 
attributes, generates automatic 
borders and lets you move or 
copy blocks of the panel within 


Practically all of your field 

editing can be done with COBOL 
spill. Perform range and discrete 
value checking as well as binary 


30 Day Money Back Guarantee! 


Known Shortcomings 

All variables declared outside a func- 
tion must be initialized to some val- 
ue—they cannot be assumed to be 
initialized to 0, and if they are not ini- 
tialized, the scheme gets buggy. Driv- 
ers written in C tend to be large— 
probably all those references to bp. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063, or call (415) 366-3600, ext. 
216. Please specify the issue number 
and format (MS-DOS, Macintosh, 
Kaypro). 


DDJ 


(Listings begin on page 68.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 








WITHOUT THE PROPER TOOLS, 
ANY COBOL APPLICATION 
CAN BE A MAMMOTH PROJECT. 






Generate native COBOL 
screen handling source 
code for your application. 


Or, use COBOL spll’s 
powerful runtime facility. 


With COBOL spill, you 
make the choice! 
We don’t make it for you. 














Only $345.00! After August 31, 
1987 the normal retail price of 


Create interactive demos, tutorials $395.00 will go into effect. 
and application prototypes with 
COBOL spll’s dialogue facility. 


Give us a call and we’ll send you 
our free demo. We think you’ll 
be impressed with the power and 
flexibility of COBOL spill. 


COBOL spll supports RM COBOL, 
Realia COBOL, Microsoft COBOL 
and RM COBOL 8x. 


COBOL spill... THE MISSING 
LINK TO COBOL PRODUCTIVITY! 


Flexus International Corporation 
P.O. Box 9119 

Morristown, NJ 07869 

(201) 895-4724 
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Listing One (Text begins on page 28.) 


/* 

** Copyright (c) 1987, Tom Steppe. All rights reserved. 
*x* 

** This module compares two arrays of lines (representing 
** files) and reports the sequences of consecutive matching 
** lines between them using the "recursive longest matching 
** sequence" algorithm. This is useful for implementing a 
** file comparison utility. 

xk 

** Compiler: Microsoft (R) C Compiler Version 4.00 

</ 


#include <stdio.h> 
#include <ctype.h> 
#include <string.h> 
#include <malloc.h> 


/* Boolean type and values. */ 
typedef int BOOLEAN; 
#define TRUE 1 

#define FALSE 0 


/* Minimum macro. */ 
#define min(x, y) CCR <= fy) 2 oes Fy) ) 


/* Value to indicate identical strings with strcmp. */ 
#define ALIKE 0 


/* Result of hashing function for a line of text. */ 
typedef unsigned int HASH; 


/* Mask for number of bits in hash code. (12 bits). */ 
#define MASK (unsigned int) Ox0FFF 


/* Number of possible hash codes. */ 
#define HASHSIZ (MASK + 1) 


/* Information about an entry in a hash table. */ 
typedef struct tbhlentry 
{ 

int* fest; /* First line # with this hash code. */ 


int last; /* Last line # with this hash code. */ 
} TBLENTRY; 


/* Information about a line of text. */ 
typedef struct lineinf 
{ 
HASH hash; /* Hash code value. */ 
int nxtln; /* Next line with same hash (or 0). */ 
} LINEINF; 


/* Information about a file. */ 
typedef struct fileinf 
{ 


char **txt; /* Array of lines of text. */ 
LINE INF *line; /* Array of line info structs. */ 
TBLENTRY *hashtbl; /* Hash table. */ 

} FILEINF; 

/* Function declarations. */ 

BOOLEAN filcmp ichar:**, int, char **,. int, int)’; 

BOOLEAN get_inf (char **, int, FILEINF *); 

HASH calc hash (char *); 

void fnd_seq (FILEINF .*,- int, int, 


FILSING *,. int;. int,-‘int):: 
BOOLEAN chk hashes (LINEINF *, LINEINF *, int); 
int cnt_matches (char **, char **, int); 
void rpt_ seq (int, int, int); 


[BRK RKR RK KKK KK KIKI OR III 


** compare compares two arrays of lines and reports the 
** sequences of consecutive matching lines. The zeroth 
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** element of each array is unused so that the index into 


** the array is identical to the associated line number. 
xx 


** RETURNS: TRUE if comparison succeeded. 


** FALSE if not enough memory. 
HK KK KK KK KK KK RK KK KK KKK KK KK KK KKK RR IORI I IO II OK IK KK / 


BOOLEAN compare (al, nl, a2, n2, Ilngval) 


char **al; /* (I) Array of lines of text in #1. */ 
int nis /* (I) Number of lines in al. 

(Does not count Oth element.) */ 
char *%*a2; /* (I) Array of lines of text in #2. */ 
int n2; /* (I) Number of lines in a2. 


(Does not count Oth element.) */ 
int lngval; /* (I) “Long enough" value. */ 
{ 
FILEINF fi; /* File information for #1. */ 
FILE INF €25 /* File information for #2. */ 
BOOLEAN rtn; /* Return value. */ 


/* Gather information for each file, then compare. */ 
2 {Fn = 

(get_inf (al, nl, &f1) && get_inf (a2, n2, &f2))) 
{ 

fnd seq (&f1, 1, nl, &f2, 1, n2, IlIngval); 
} 


return (rtn); 


} 


[RK KKK KK KK KKK KKK KK KKK KK KK RK KK KK KK KK KKK KK KKK KKK KK KK KK KK KKK KKK 


** get inf calculates hash codes and builds a hash table. 
*x* 
**- RETURNS: TRUE if get inf succeeded. 


x FALSE if not enough memory. 
FOI III I III II IOI a / 


static BOOLEAN get _ inf (a, n, f) 


/* (I) Array of lines of text. */ 
/* (I) Number of lines inaks */ 
/* (O) File information. */ 


char xa; 
int n; 
FILEINF “Es 
{ 


unsigned int size; /* Size of hash table. */ 
register int 33 /* Counter. */ 
TBLENTRY *xentry; /* Entry in hash table. */ 


/* Assign the array of text. */ 
f->txt = a; 


/* Allocate and initialize a hash table. */ 
size = HASHSIZ * sizeof (TBLENTRY)-; 
if (f->hashtbl = (TBLENTRY *) malloc (size) ) 
{ 

memset ((char *) f->hashtbl, '\0', size); 
} 
else 
{ 

return (FALSE) ; 
} 


/* If there are any lines: */ 
Af. {nH > G} 
{ 
/* Allocate an array of line structures. */ 
if (f->line = (LINEINF *) 
malloc ((n + 1) * sizeof (LINEINF *))) 
{ 
/* Loop through the lines. */ 
for (i = 1; i <= nz itt) 


{ 
(continued on next page) 
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SEIDL 
VERSION 
MANAGER 


RECONSTRUCT any 
VERSION of a SOFTWARE 
product AUTOMATICALLY. 


*% Archive Database 


tracks all source code revisions 
as well as annotative comments. 


*% Audit Trail Report 


provides user specified  in- 
formation on any aspect of a 
project’s development. 


* Revision Branching 


allows any number of revisions 
to be created from an existing 
revision. 


* Text Compression 


optionally reduces disk storage 
requirements. 


* Menu Driven Shell 


makes SVM easy to use. 


*% Price: $299.95 + $5.00 p&h. 


SEIDL 


MAYS 
UTILITY 


NOT just ANOTHER COPY 
of the UNIX MAKE. 


* Structured Language to 
describe dependencies in a clear, 
concise and portable manner. 


* Rich Command Set 


includes parameterized macros, 
variables, if-then-else, iteration, 
wild cards, macro libraries, 
interactive statements, environ- 
ment access and much more! 


* Intelligent Analysis 


algorithm handles nested include 
files, library dependencies, and 
performs consistency tests to 
detect errors that other makes 
would blindly ignore. 


*% Price: $99.95 + $3.50 p&h. 


CALL TODAY 
1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 


SEIDL COMPUTER ENGINEERING 
3106 Hilltop Dr., Ann Arbor, MI 48103 
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Listing One (Listing continued, text begins on page 28.) 


/* Calculate the hash code value. */ 
f->line[i].hash = calc hash (f->txt[i]); 


/* Locate the entry in the hash table. */ 
entry = f->hashtbl + f->line[i] .hash; 


/* Update the linked list of lines with */ 
/* the same hash code. mp 
f->line[entry->last].nxtln = i; 
f->line[i].nxtln = 0; 


/* Update the first and last line */ 
/* information in the hash table. */ 
if (entry->frst == 0) 

{ 


entry->frst i; 


} 


entry->last = i; 


} 
else 
{ 
return (FALSE); 
} 
} 
else 
{ 
f->line = NULL; 
} 


return (TRUE); 
} 


[ROR III III II III I I 


** calc hash calculates a hash code for a line of text. 
*x 


** RETURNS: a hash code value. 
RHR KK IKK KR IR I KKK KKK KR KIO IIR IOI III OK I I IK IOI I I KIKI IK IK IK IK / 


static HASH calc hash (buf) 


char *buf; /* {IY Line: of ‘text. */ 
{ 
register unsigned int chksum; /* Checksum. */ 
char *s; /* Pointer. */ 
HASH hash; /* Hash code value. */ 


/* Build up a checksum of the characters in the text. */ 
for (chksum = 0, s = buf; *s; chksum “= *s++) 


{ 
} 


/* Combine the 7-bit checksum and as much of the */ 
/* length as is possible. ef 
hash = ((chksum & Ox7F) | ((s - buf) << 7)) & MASK; 


return (hash); 


} 


[BRK RK KKK KKK RK KKK KKK IORI IO OI aK 


** Given starting and ending line numbers, fnd_seq finds a 
** "good sequence" of lines within those ranges. fnd_seq 
** then recursively finds "good sequences" in the sections 


** of lines above the "good sequence” and below it. 
FOI III III IOI II III II IE / 


static void fnd_seq (fl, begl, endl, £2, beg2, end2, lngval) 


FILEINF *f1; /* (I) File information for #1. */ 
int beg1; /* (I) First line # to compare in #1. */ 
int endl; /* (I) Last line # to compare in #1. */ 





Dr. Dobb’s Journal, September 1987 


ror 





FILEINF *f2; /* (I) File information for #2. */ 
int beg2; /* (I) First line # to compare in #2. */ 
phele end2; /* (I) Last line # to compare in #2. */ 
int lngval; /* (I) "Long enough" value. */ 
{ 
LINEINF *linel; /* Line information ptr in #1. */ 
LINEINF *line2; /* Line information ptr in #2. */ 
register int limit; /* Looping limit. */ 
int inl; /* Line number in #1. */ 
int inZ; /* Line number in #2. */ 
register int ln; /* Working line number. */ 
BOOLEAN go; /* Continue to loop? */ 
Ltt most; /* Longest possible seq. */ 
int most1; /* Longest possible due to #1. */ 
int most2; /* Longest possible due to #2. */ 
int ent; /* Length of longest seq. */ 
aint oldent; /* Length of prev longest seq. */ 
int n; /* Length of cur longest seq. */ 
int m1; /* Line of longest seq. in #1. */ 
int m2; /* Line of longest seq. in #2. */ 


f/*®. Initialize: .*/ 


go 


= TRUE; 


linel = f1->line; 
line2 = £2->line; 


/* Initialize longest sequence information. */ 


ent = 0; /* Length of longest seq. */ 

m1 = begl - 1; /* Line # of longest seq. in #1. */ 
m2 = beg2 - 1; /* Line # of longest seq. in #2. */ 
oldecnt = 0; /* Length of prev longest seq. */ 


/* Calculate maximum possible number of consecutive */ 
/* lines that can match (based on line # ranges). */ 
mostl = endl - begl + 1; 
most2 = end2 - beg2 + 1; 


/* Scan lines looking for a "good sequence”. 
xx Compare lines in the following order of line numbers: 


xx 

me (1, 1) 

a ids, Chester Le hee 2) 

= (1, 3); (2, 3) (3 L)e ee 2) 3 (3, 3) 

** etc. 

~y 

for (lnl1 = begl, ln2 = beg2; TRUE; lInl+t+, ln2++) 


{ 


if (ln2 <= end2 - cnt) 
/* There are enough lines left’ in #2 such that it */ 


/* is possible to find a longer sequence. a 
{ 
/* Determine the limit in #1 that both =f 
/* enforces the order scheme and still makes */ 
/* it possible to find a longer sequence. x/ 


limit = min (lnl - 1, endl - cnt); 


/* Calculate first potential match in #1. */ 
for (ln = f1->hashtbl [line2[1n2] -hash] .frst; 

ln && ln < begl; ln = linel[l1n] .nxtln) 
{ 


} 


/* Loop through the lines in #1. */ 
for (3 ln && In <= limit; 1n = linel[ln].nxtln) 
{ 
if (linel[1ln].hash == line2[1ln2].hash && 
linel[{ln + cnt]-hash == 
line2[1ln2 + cnt].hash && 
!(1ln - ml == In2 - m2 && 
In < ml + cnt && ml != begl - 1)) 
/* BR candidate for a longer sequence has */ 


(continued on next page ) 
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FULL TEXT RETRIEVAL 


Searches 5,000 text files in 
5 seconds. 


The ultimate personal computer 
information retrieval software. 


Find any information created by the 
popular word processors or ASCII files, in 
seconds-without having to set up a 
database or do programming. Scan a 20 
Mbyte hard disk or a collection of floppies 
and instantly display all occurrences of a 
name, a product, a phrase, a number, or 
anything else you need to find. Save hours 
of manual searching. 


FEATURES 


* Comprehensive searches create a 
search request with any combination of 
AND, OR, NOT, and WITHIN (WITHIN 
refers to how far apart two words or 

phrases can be — up to 30,000 words). 


¢ Wild Cards, for example: type “micro*” 
to get (microcomputer, microcomputing, 
micro-processor, etc.). * Mark and Save 
retrieved information to create a new file. 
¢ Highlights search-words and phrases 
in retrieved text. * On Line Help Menus. 
¢ Find Function automatically displays 
search topic in the retrieved file.» Phrase 
Search, in addition to single word search. 


SYSTEM REQUIREMENTS MINIMUM 


¢ 384K « Two Disk Drives e DOS 2.0 or 
above « Designed for IBM PC, XT, AT, 
compatibles, and most MS-DOS computers 


ZyINDEX Personal $95 
Searches up to 325 files 


ZyINDEX Standard $145 
Searches up to 500 files 


ZyINDEX Professional $295 

Searches up to 5,000 files 

ZyINDEX Plus $695 

Searches up to 15,000 files with LAN capabilities. 
30 Day Money Back Guarantee 


ZvyLAB 
yRrr! 
233 East Erie Street 


Chicago, Illinois 60611 (312) 642-2201 
(800) 544-6339 For orders and information 
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Listing One (Listing continued, text begins on page 28.) 


/* been located. The current lines */ 
/* match, the current lines + cnt match, */ 
/* and this sequence is not a subset of */ 
/* the longest sequence so far. *f 


{ 


/* Calculate most possible matches. */ 
most = min (endl - ln + 1, most2); 


/* First compare hash codes. If the */ 


/* number of matches exceeds the */ 
/* longest sequence so far, then xf 
/* compare the actual text. a 


if (chk_hashes (linel + ln, 
line2 + 1n2, cnt) && 
(n = cnt_matches (f1->txt + ln, 
£2->txt + 1n2, most)) > ent) 
/* This is the longest seq. so far. */ 
{ 
/* Update longest sequence info. */ 
oldent = cnt; 


ent =n; 
m1 = ln; 
m2 = ln2; 


/* If it's long enough, end the */ 
/* search. */ 
if (cnt >= lngval) 


break; 


/* Update limit, using new count. */ 
limit = min (ln1 - 1, endl - cnt); 


/* If it's long enough, end the search. */ 
if (cnt >= Ingval) 
{ 


break; 


} 


most2--; 


} 


else. 


{ 
go = FALSE; /* This file is exhausted. */ 


/* Repeat the process for the other file. */ 
if (lnl <= endl - cnt) 
| 


limit = min (ln2, end2 - ent); 


for (ln = f2->hashtbl [linel[1n1].hash].frst; 
ln && In < beg2; ln = line2[1n] .nxtln) 


‘eo 


for (; ln && In <= limit; In = line2[1n].nxtln) 
{ 
if (linel[1n1]-hash == line2[ln]-hash && 
linel[lnl + cnt].hash == 
line2[ln+ cnt].hash && 
!(Inl - ml == ln - m2 && 
Ini < ml + cnt && m2 != beg2 - 1)) 


most = min (end2 - ln + 1, mostl); 


if (chk_hashes (linel + I1nl, 
line2 + ln, cnt) && 
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} 


/* 
/* 
/* 
5 
{ 


} 


a. 
/* 


} 





(nm = cnt_matches (f1->txyt + lnl, 
£2->txt + ln, most)) > cnt) 


oldent = cnt; 


ent =n; 
m1 = lnl; 
m2 = ln; 


if (cnt >= lngval) 
{ 


break; 


} 


limit = min (l1n2, end2 - cnt); 


} 


if (cnt >= lngval) 
{ 


break; 


} 


mostl--; 


} 
else if (!go) 
{ 


break; /* This file is exhausted, also. */ 


} 


If the longest sequence is shorter than the "long */ 


enough" value, the "long enough" value can be aS 
adjusted for the rest of the comparison process. */ 


(cnt < lngval) 


lngval = cnt; 


(cnt >= 1) 


Longest sequence exceeds minimum necessary size. */ 


if (ml != begl && m2 != beg2 && oldcnt > 0) 
/* There is still something worth comparing */ 
/* previous to the sequence. =F 
{ 
/* Use knowledge of the previous longest seq. */ 
fnd_seq (fl, begl, ml - 1, 
£2, beg2, m2 - 1, oldcnt); 
} 


/* Report the sequence. */ 
rpt_seq (ml, m2, cnt); 


if (ml + cnt - 1 != endl && m2 + cnt - 1 != end2) 
/* There is still something worth comparing */ 
/* subsequent to the sequence. a 
{ 
fnd_seq (f1, ml + cnt, endl, 
£2, m2 + cnt, end2, lngval); 


[ RRR RR RK RRR KKK KIKI 


** chk hashes determines whether this sequence of matching 
** hash codes is longer than cnt. It knows that the first 
** pair of hash codes is guaranteed to match. 


xx 


** RETURNS: TRUE if this sequence is longer than cnt. 


*x* 


FALSE if this sequence is not longer than cnt. 


KK KKK KKK KK KK KK KK KK KKK KK KK KK KK KK KK KK KKK RK KK KK KKK KKK KK KK KKK KK / 


(continued on next page) 
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Read what they’re saying about this 
popular program for prototyping and 
demo-making: 


“A winner right out of the start- 
ing gate. After you use DEMO 
once, you'll wonder how you got 
along without it.”’ 

—PC Magazine 


“‘Everybody who writes soft- 
ware, either commercially or for 
in-house applications, should 
immediately order a copy. Period. 
No exceptions.” 

—Soft- letter 


Product of the Month 
—PC Tech Journal 


Thousands of developers and most 

of the largest and best known software 
companies are using this program. 
You can, too. Act now! 


Seats 


The perfect companion to the Demo 
Program. The Tutorial helps you learn 
the ins and outs of its basic and ad- 
vanced features. Complete with a 96 
page manual containing step-by-step 
instructions, diskette, and function 

key template. \ 





Use 800-number for orders only. 

Questions, special shipping, etc., call 617-332-2240. 
No Purchase Orders. Massachusetts residents add 5% 
sales tax. Outside of the U.S.A., add $15.00. 

Requires 256K IBM PC/Compatible, DOS 2.0 or later. 
Supports Monochrome, Color Graphics, and EGA 
Adapters (text mode only). The Tutorial requires the 
Demo Program. 





=~ 


SOFTWARE 
GARDEN. INC. 


Dept. D 
P.O. Box 373, Newton Highlands, MA 02161 
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Listing One (Listing continued, text begins on page 28.) 


static BOOLEAN chk_hashes (linel, line2, cnt) 


LINE INF *linel; /* (I) Line information for #1. */ 
LINE INF *line2; /* (I) Line information for #2. */ 
register int cnt ; /* (I) Count to try to exceed. */ 


{ 


register int nz /* Count of consecutive matches. */ 


for: (n = ly n.<= cnt .é& 
((++linel)->hash == (++line2)->hash); n++) 
{ 


se 


} 


return (n > cnt); 


} 


[RRR RRR KK RIK KK OK KIO IO III IO 


** cnt_matches counts the number of consecutive matching 
** lines of text. 
*x* 


xx RETURNS: number of consecutive matching lines. 
FORK KKK I KKI I IOI II OII IK IOK / 


static int cnt_matches (sl, s2, most) 


char *ks1; /* (I) Starting line in file #1. */ 
char **s2; /* (I) Starting line in file #2. */ 
register int most; /* (I) Most matching lines possible. */ 
{ 


register int nie /* Count of consecutive matches. */ 


/* Count the consecutive matches. */ 
for (n = 07; n < most && strcmp (*sl++, *s2++) == ALIKE; 
nt++) 


{ 


=e 


} 


return (n); 


} 


[RRR KR RR KKK KIO III IOI IOI III I 


** rpt_ seq reports a matching sequence of lines. 
Fe KO IK IK KKK KKK III III IO IO I I eK ee / 


static void rpt_seq (ml, m2, cnt) 


int m1; /* (I) Location of matching sequence in #1. */ 
Pre in? /* (I) Location of matching sequence in #2. */ 
be) Mo 9 /* (I) Number of lines in matching sequence. */ 
{ 
fprintf (stdout, 
"Matched 5d lines: (%5d - %5d) and (%5d -— %5d)\n", 
Gnt,. M1, mL + ane <1, -mZ, m2 + ent = "2p; 





End Listing 
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Professional C function library 

( 30 day money back guarantee 

Y Multiple bullet proof windows 

Easy full screen data entry 

4 Unlimited data validation 

( Context sensitive help manager 

4 Menus like Lotus and Mac 

Programmable keyboard handler 

Text editor routines 

No royalties or runtime fees 

Library source included FREE 

( Free technical support 

Free BBS at (214)418-0059 

‘ Supports all major compilers 
including Microsoft 5.0 

‘4 VCScreen code generator too! 

( UNIX version avaialable, 
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The New BASICs! 


Programming Techniques 
and Library Development 


by Namir Clement Shammas 


ere’s an in-depth look at the latest and fastest BASICs: Quick- 
BASIC 3.0, Turbo BASIC 1.0 and True BASIC 2.0. 


he New BASICs will quickly orient programmers to the syntax 

and programming features of these new, improved BASICs. Now, 
you can learn the details of implementing subroutines, functions, and 
libraries to permit more structured coding. 


he book includes a discussion of the new BASICs and their envi- 

ronments, and a look at the new programming framework, in- 
cluding BASIC options and data types, strings, arrays, decision making, 
loops, exit statements, error handling, user-defined functions, and call- 
able subroutines. 


7 ou’ll also find a collection of useful programming examples and 
ready-to-use libraries, including libraries for general utilities, ex- 
tended string management, numerical analysis, statistics, data struc- 
tures, files manipulation, and sorting and searching. In addition, there’s 
a binary-tree library, an MS-DOS files library, a library for Pascal-like 
sets, and much more! 


est of all, all programs and subroutines are also available on disk, 
with full source code. MS-DOS format. 


he New BASICs 
Book and Disk (MS-DOS) Item #43-7 $39.95 
Book only Item #37-2 $24.95 


i 
TO ORDER: Return this order form with your 


payment to: M&T Books 

501 Galveston Dr. 

Redwood City, CA 94063 
Or, call TOLL-FREE 800-533-4372 Mon-Fri 8AM-5PM 
(In CA call 800-356-2002) 


ORDER FORM 
YES! Please send me The New BASICs book and disk, $39.95 
Please send me The New BASICs book, $24.95 








Subtotal 
CA residents add sales tax __ % 
Add $2.25 per item for shipping 
TOTAL 
Name 
Address 





Nea ne SON Zip 


—— Check enclosed. Make payable to M&T Publishing. 








Charge my VISA eee MT Amer. Exp. 
Card Noi <2 ae Exp, 
Signature 
CODE: 3131C 
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Listing One = (Text begins on page 36. ) 


/* Binary tree delete procedure 
* 









* Input parameter "s" points to a scan for an XOR 
* chained binary tree. 

* The procedure deletes s->child from the tree, 

* and returns with s set by GoParent (s) 


a f 








void Delete(s) 
struct Scan *s; 


{ 







struct Scan temp, *t; 
struct Item *i, *j, *k; 

















i = s->child; 
GoParent (s); 


/*i is the item to be deleted*/ 






if (i->llink == i->rlink) 
{ 


/* Case 1 */ 






/* 
* adjust the pointers for s->child, 
* i's parent 
A 

if (i->key < s->child->key) 

s->child->llink = s->parent; 
else 
s->child->rlink = s->parent; 









} 










else if (i->llink == s->child) 
{ 


/* Case 2 */ 






/* 
* adjust the pointers for s->child, 
* i's parent 


ey 











if (i->key < s->child->key) 
s->child->llink = i->rlink ~* 
S->parent “* s->child; 






else 
s->child->rlink = i->rlink *% 
S->parent “* s->child; 











/* 
* adjust the pointers for i's child 


A 






j} = i->rlink “* s->child; 
j->rlink “= i * s->child; 
j->llink *= i * s->child; 








} 





else if (i->rlink == s->child) 
{ 


/* Case 3 */ 






/* 
* adjust the pointers for s->child, 
* i's parent 
rE 

if( i->key < s->child->key ) 

s->child->llink = i->llink % 
s->parent % 
s->child; 









else 
s->child->rlink = i->llink % 
S->parent “%* 










s->child; 
/* 
* adjust the pointers for i's child 
my 






+. i->LTlink “ .s=>child; 
j= rie a Schild; 





(continued on page 65) 
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Create 68K Embedded Systems On ATs 


Oregon Software Brings VAX and VME Pascal-2° 
Cross-Development Tools To MS-DOS Workstations 


Get All Your Tools In One Package 


The Pascal-2 Cross-Development System gives you price/performance value that beats high-priced work- 
stations. Compare these features and call for further information. 


Compiler Stand-Alone Library 


68000, 68020, and 68881 instruction sets ™ source supplied: users may adapt code as needed 

ROMable code ™ user programs that run without an operating system 

reentrant code or other real-time kernel 

separate program sections for code and data ™ compact code for extremely small ROM programs 

easy access to hardware through fixed memory or limited memory devices 

locations (I/O space) @ ability to write device drivers in Pascal or assembly 
code 


Assembler-Linker ™ user-customized system services or control programs 
™ easily-gathered performance analysis statistics 


m VERSAdos compatible output 
™ easily linked, relocatable S-record format source Management 


™ aversion-control system to track and identify each 


Concurrent Program Support phase of development 


® optional branching to multiple versions from a single 
™ process synchronization primitives for creating a source 


multiprocessing real-time kernel automated rebuilding of programs from component 
m interactive post-mortem analyzer modules (a Unix-style Make function) 
= software-selectable interrupt levels a restricted-access system for coordinating revisions 


Ten Years of Sustained and Focused Growth in Compiler Technology 


HOST OPERATING SYSTEM COMMON COMMON TARGET TARGET OPERATING SYSTEM 


FRONT END OPTIMIZER ARCHITECTURE 


M68000/020 es 
—|_MODULA-2 * = 5 
| 


PASCAL-2 cate 
| iAPX 86 


N32000 





*Release planned in 1988. 


OREGON §@ SOFTWARE 


800-367-2202 


6915 SW Macadam Avenue, Portland, Oregon 97219 U.S.A. 503-245-2202 FAX 503-245-8449 TWX 910-464-4779 


DISTRIBUTORS: = DENMARK erik mainz a/s, Theklavej 46, DK-2400 Copenhagen NV, Tel: 1-34-7788 # ENGLAND Real Time Products, 1 Paul Street, 
London EC2A 4Jy, Tel: 1-588-0667; Grey Matter, Microcomputer Software and Consultancy, 4, Prigg Meadow, Ashburton, Devon TQ13 7DF, Tel: 364-53499 
= FRANCE Focal Informatique, 5 Place de la Gare, Le Rhodanien niveau 7, 69003 Lyon Part-Dieu, Tel: 72-33-02-02; SCT Electronique, Za Route du Bua, 
Batiment B-Entree 2, Cidex 434 Verrieres Le Buisson, Tel: 1-6011 1950 # THE NETHERLANDS Computing & Systems Consultants BV, Stationsplein 47, 
5611 BC Eindhoven, 040434957 # SWEDEN IND AB, Box 2066, S-175 02 Jaerfalla, Tel: 75852025 # SWITZERLAND Fabrimex AG Kirchenweg 5, 

8032 Zurich, Tel: 01-2512929: Muhlethaler AG Computer Systems Kirchstrasse 2, CH-4536 Attiswil, Tel: 65772911 # WEST GERMANY AC Copy 
Kurbrunnenstrasse 30, Aachen D-5100, Tel: 241-505477. 


The following are trademarks: Pascal-2, SourceTools, and Oregon Software, Oregon Software, Inc., VAX and VMS Digital Equipment Corporation, UNIX, AT&T Bell Laboratories, Incorporated. 
MS, and MS-DOS are registered trademarks of Microsoft Corporation. 
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DR. DOBB’S 
C TOOLBOX | 











Smali-C 
Handbook & 
Smali-C 
Compiler 


Po bn 2) Se ke 





his compiler and handbook provide everything you 
need for learning how compilers are constructed, and 
for learning C at its most fundamental level. You'll find a 
discussion of assembly language concepts and program 
translation tools, and of how to generate a new version of 
the compiler. Full source code is included. Please specify 
MS/PC-DOS or CP/M: Kaypro, Osborne, Apple, Zenith Z- 
100 DS/DD, 8” SS/SD. 

CP/M Compiler & Handbook Item #006B $37.90 
MS/PC-DOS Compiler & Handbook Item #006C $42.90 





Smalli-Tools: 
Programs 
for Text 
Processing 











his package of Small C programs performs specific, 
modular operations on text files. It is supplied as source 
code with full documentation. With the Small-C Compiler, 
you can select and adapt these tools to meet your needs. 
Please specify MS/PC-DOS or CP/M: Kaypro, Osborne, 
Apple, Zenith Z-100 DS/DD, 8” SS/SD. 

Small-Tools Item #010A $29.95 


C Disk Formats 


Please indicate MS/PC-DOS or CP/M. For CP/M 


specify: Apple, Osborne, Kaypro, Zenith Z-100 DS/ 
DD, 8" SS/SD. 


his package includes: a simplified macro facility, C 

language expression operators, object file visibility, 
descriptive error message and an externally defined in- 
struction table. Source code and documentation is includ- 
ed. CP/M only. Please specify: Kaypro, Osborne, Apple, 
Zenith Z-100 DS/DD, 8” SS/SD. 
small-Mac 





Item #012A $29.95 


CP/M C Package 

Save Over $27! 
eceive: Dr. Dobb's Toobook of C, The Small-C Hand- 
book and Small-C Compiler, Small-Mac Assembler, 


and Small-Tools Text Processing Programs. Only $99.95! 
CP/M Package Item #005A $99.95 


MS/PC-DOS C Package 
Save $22 


eceive: Dr. Dobb's Toolbook of C, The Small-C Hand- 
book and MS/PC-DOS Addendum, Small-C Com- 
piler, Small-Tools Texts Processing Programs and Small 
Windows. Only $109.95! 
Specify Microsoft C Version 4.0, Small C or Lattice C com- 
piler. 
MS/PC-DOS Package 


Item #005W $109.95 


For Small-Windows, specify Small-C, Microsoft C 
Version 4.0 or Lattice C compiler. 
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C Chest and 
Other C 
Treasures 


from Dr. Dobb's 
Journal 





C Chest 
and Other 
C Treasures from 
Dr. Dobh’s Journal 


his comprehensive anthology contains the popular '’C 
Chest” columns from Dr. Dobb’s, along with the lively 
philosophical and practical discussions they inspired. 
You'll also find other information-packed articles by C ex- 


perts. 





“ 
~ 


Topics covered include: pipes, wild-card expansion, and 
quoted arguments; sorting routines; command-line pro- 
cessing; queues and bit maps; utilities such as Js, make, 
and more; expression parsing; hypenation; IBM cursor con- 
trol and an Fget that edits; redirection; accessing IBM video 
display memory; trees; an AVL tree database package; di- 
rectory traversal; sets; shrinking. EXE file images; hashing, 
expressions, and Roman numerals; and statistical applica- 
tions of digital low-pass filters. 


Other C treasures include: a variable metric minimizer; 
Christensen protocols; Fgrep; a peephole optimizer; curve 
fitting with cubic splines; and the CompuServe B protocol. 


All subroutines and programs are written in C and are 
available on disk with full source code. MS-DOS format. 


NOW FOR MICROSOFT C, SMALL C, AND 
LATTICE C COMPILERS 


Small-Windows: 
A Library of 
Windowing 
Functions for 

the C Language 


mall-Windows is a complete windowing library for C. 

The package contains: 18 video functions written in 
assembly language; 7 menu functions that support both 
static and pop-up menus; and 41 window functions, includ- 
ing functions to clean, frame, move, hide, show, scroll, 
push, and pop windows. A file directory facility illustrates 
the use of the window menu functions and provides file 
selection, renaming, and deletion capability. Two test pro- 
grams are also included. For PC/MS-DOS systems, Micro- 
soft C Version 4.0, Small-C, and Lattice C compilers. Docu- 
mentation and full source code is included. 
Small-Windows Item #35-6 











$29.95 
































CA residents add sales tax __ % 
Add $2.25 per item for shipping 
TOTAL 


Book & MS-DOS Disk Item #49-6 $39.95 
Book only Item #40-2 $24.95 Toolbook of s 
his authoritative reference contains over 700 pages, 
including the best C article from Dr. Dobb's Journal 
along with new material. You'll find hundreds of pages of 
valuable C source code, including a complete compiler, an 
assembler, and text processing programs. 
Toolbook of C Item #005 $29.95 
TO ORDER: Name For Disk Orders, please indicate 
Return this order format. Refer to product description for standard 
form with your Address format availability. 
ayment to: : 
a aT I Tinie City __________ State Zip 
a soe os Item # Description Price __MS-DOS CP/M — Kaypro — 8’ SS/SD 
94063 __ Osborne — Apple — Zenith Z-100 DS/DD 
Or, call 
TOLL-FREE For Small-Windows, indicate: 
800-533-4372 ___ Microsoft version 4.0 compiler 
Mon-Fri 8AM-5PM ___ Small-C compiler 
In CA call —— Lattice C compiler 
800-356-2002 
Subtotal __ Check enclosed. Make payable to M&T 


Publishing. 


Charge my __ VISA ~—M/C -—~ Amer. Exp. 
Card No. Exp. 
Signature 
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STEP 


Taming MS-DOS 
by Thom Hogan 


Poms MS-DOS takes you beyond the 
basics, picking up where your DOS 
manual leaves off. You'll learn how to create 
a memory-resident clock, how to rename 
subdirectories and change file attributes, 
how to create AUTOEXEC.BAT files, and 
how to customize CONFIG.SYS and use 
ANSI.SYS to change the appearance of 
DOS. You'll find extensive batch file 
coverage with example routines that use 
redirection operators, filters and pipes, and 
ready-to-use assembly language programs 
that enhance DOS. Full source code is 
included. 

Taming MS-DOS 
Taming MS-DOS 

with disk 


Item #24-0 $19.95 


Item #59-3 $34.95 


BUSINESS REPLY MAIL 


FIRST CLASS PERMIT 871 REDWOOD CITY, CA 





POSTAGE WILL BE PAID BY ADDRESSEE 


M&T Books 


501 Galveston Dr. 
Redwood City, CA 94063 
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On Commands: 
Writing a 
Unix=-Like Shell 
for MS-DOS 





by Allen Holub 


T 


his book and ready-to-use program 
demonstrate how to write a Unix-like 
shell for MS-DOS, with techniques appli- 
cable to most other programming environ- 
ments as well. The book and disk include 
a detailed description and working version 
of the shell, complete C source code, a 
thorough discussion of low-level DOS 
interfacing and significant examples of C 
programming at the system level. Sup- 
ported features: read, aliases, history and 
C-Shell-based shell scripts. The Unix-like 
control flow includes: if/then/else; while; 
foreach; switch/case; break; continue. For 
IBM PC and direct compatible’s. All source 
code included on disk. 


On Command Item #29-1 $39.95 


/Util 


hen used with the shell, this col- 
lection of utility programs and sub- 
routines provide you with a fully functional 
subset of the Unix environment. Utilities 
include: cat; cp; date; du; echo; grep; ls; 
mkdir; mv; p; pause; printevn; rm; rmdir; 
sub; and chmod. Complete source code 
and manual included. 


/Util 








Item #12-7 $29.95 


Program 
Inftecfacin 
fo MS-DO 


by William Wong 


© riginally featured in Micro/Systems 
Journal, Program Interfacing to 
MS-DOS provides ten concise articles that 
will orient any experienced programmer to 
the MS-DOS environment. All source code 
discussed is also contained on disk. 








Topics include: program construction, 
character base input and output functions, 
and file access. You'll also find a discus- 
sion of CP/M style vs. Unix-style DOS 
file access, sample program files, and a 
detailed description of how to build device 
drivers. A device driver for a memory disk 
and a character device driver are provided 
on disk with full source code. 
Interfacing 

to MS-DOS Item #34-8 $29.95 


A e is a text formatter that is written 

in C and is compatible with the 
Unix NROFF. It includes complete 
implementation of the -ms macro package, 
and an in-depth description of how -ms 
works. NR does hyphenation and simple 
proportional spacing, and supports 
automatic table of contents generation and 
indexing, automatic footnotes and end- 
notes, italics, boldface, overstricking, 
understricking, and left and right margin 
adjustment. Also: extensive macro and 
string capability, number registers in 
various formats, diversions and diversion 
traps, input and output line traps. Full 
source code included. For PC compatibles. 


NR Item #33-X $29.95 
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Listing One = (Listing continued, text begins on page 36. ) 


j->llink *= i * s->child; 


/* Case 4 */ 
j = i->llink * s->child; 


1f (j->rlink == 4) /* Case 4a */ 
{ 

/* 

* adjust the pointers for s->child, 

* i's parent 


me 


if (i->key < s->child->key) 
s->child->llink = j * s->parent; 
else 
s->child->rlink = j * s->parent; 


/* 
* adjust the pointers for i's children 


wy, 


j->llink *= i * s->child; 
j->rlink .-= i<>rlinks 

k = i->rlink * s->child; 
ke > Ll im 3:.% 4s 

kb link: t= i *" 4 


/* Case 4b */ 





(continued on next page ) 


: 8031 


Se FORTH DEVELOPMENT ENVIRONMENT 
tae 


Take advantage of Bryte’s tools to make your job easier: 


@ Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 
development. No emulators, no changes, no surprises. 


Optional PC-based cross-development tools use DOS 
files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 


the dBx” Translator 


e C from dBASE II, III, IfI+ programs 
e Move to UNIX, XENIX, QNX, MAC, AMIGA 
e Faster, more reliable IBM PC programs 
Supports multi-user and network 
Run your code on any standard C system 
Know dBASE? Learn C easily. 
Priced from $350; available from distributors 
Includes full screen handler library 
Supports a choice of C database managers 


from (ZX) Desktop Ai 


1720 Post Road East, Westport, CT 06880 
Telephone: 203-255-3400 * Telex: 6502972226MCI 
MCIMAIL-DESKTOPAI 


aBASE Is a trademark of Ashton-Tas dBx Ie a trademark of Desktop Al 


Why not start developing the Bryte way today? 


BRYTE-FORTH 8831 EPROM 100.00 
(includes 13% page User’s Manual) 

Utility disk(s) 65. 

Cross-compiler/Cross-assembler 

8031 unlimitted quan. license 


Includes complete source code 


loryte computers, Inc. 


P,0." Box 46 
Augusta, ME 04330-0046 


207/547-3218 
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Publication Quality 
Scientific Graphics 


Over 125 C routines make 
scientific plotting easy 


linear, log, & polar plots 

bar charts & Smith charts 

contour plots with labels 

3-D curves, 3—-D surfaces 

4 curve types, 8 markers, errorbars 
14 fonts, font editor 

unlimited levels of $uP* scripts 


4096 x 3120 resolution in 16 colors 
on EGA, Tecmar, Sigma boards 


> zoom, pan, window and merge plots 
> high resolution printer dumps 
SOURCE INCLUDED for persona/ use only 


$350. Demo $8 


256k, IBM, AT&T, Corona PCs, DOS 2.xx, 3.xx 
Most boards, printers, and plotters supported 
Microsoft, Lattice, DeSmet, Aztec, C86 compilers 


t+vuevVTe vous 


sin{x)coe{x~y) 
Polar Plot Test 


SILTY ott) 
ERR 
ch) WL Ld os 
vO ARS 
Ax 
PONT 


\ xy ATS 


Scientific Endeavors Corporation 
Route 4, Box 79 _ Kingston, TN 37763 (615) 376-4146 





ptt Street Seas 


SCRUTINY 
Advanced symbolic debugger. 

— Multi-language: compatible with Turbo Pascal, 
Microsoft Assembler, others. 

— Multi-DOS: works with all MS-DOS/PC-DOS 
computers. 

— Multi-level: debug at source level and machine level, 
separately or together. 

— Multi-display: debug character-mode and graphics- 
mode programs, with movable debug windows. 

— Multi-chip: support for 8086, 80186, 80286, 80386. 

— Fast 80386 “memory breakpoints” (stop program 
when specified variable is accessed or modified). 

Scrutiny/ Master $99.95 
for debugging Turbo Pascal, Microsoft Assembler, 
and other languages. 


Scrutiny/Turbo Special price! $49.95 
for debugging Turbo Pascal only. 


VISA/MC AMEX accepted. In Texas please add sales 
tax. Outside of North America add $10 per item 
shipping. 























M Street Software 
9400 E. Mockingbird Lane Suite 114 
Dallas, Texas 75206 
214-827-4908 


Information also available via our 24 hour 300/1200 
modem: 214-669-1882. 
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Listing One 
(Listing continued, text begins on page 36. ) 


/* 
* locate the replacement item 


*/ 


t = &temp; 

Associate (t,s->root) ; 
t->parent = s->child; 
t->child = i; 

GoLeft (t) ; 


while( t->child->rlink != t->parent ) 
GoRight (t) ; 


/* 
* adjust the pointers to free t->child 
x} 

t->parent->rlink *= t->child->llink % 

t->parent s 
t->child; 


if (t->child->llink != t->parent) 

{ 
k = t->child->llink “* t->parent; 
k->llink *= t->parent “* t->child; 
k->rlink “= t->parent * t->child; 

} 


/* 
* adjust the pointers for s->child, 
* i's parent 


af 


if (i->key < s->child->key) 

s->child->llink = t->child “* s->parent; 
else 

s->child->rlink = t->child “ s->parent; 


t->child->llink = i->llink; 
t->child->rlink = i->rlink; 
/* 
* adjust the pointers for i's children 
ne 


j~>lLlink. 47+ .1.“-€=Sschild; 
j->rlink “St t=senlias 
k = i->rlink * s->child; 
k=>i tink: Ce fi" ds 
Keo Tink $a 

} 


} 
Dropitem(i) ; 


End Listing 
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Turbo Tech Report 


Speaks Your Language. 


Turbo Waich 


mesa ty fers Sere Shah sat 


Turbo Tech Report will make 
@ point io sddress the entire 
Ture Fascal programming 
community, by discussing the: 
issue of porting code across 
the three Turbo Pascai 
envircnments, 


iN THIS ISSUE: 
alhematica? Expression Parsers for 
Run-Time. Evainstzon 
Fy Wane Gane Shares 
PRAY: A Taba Paws: Pesce CHicvisior 2 
#y Saris SS 
terhe Power Tools Pius iron: False 
Sampsiding 
i Riavigwed 4 Yeswn Sent 
ae YDeDusPlUs fom TerkePower Sofware 
Fdewes by Nam Sees Spomes 
from YurboPowser 
Ravinwed by Yessn Stars 
Programmers Uikiies fom Ts2ePawer 
Sh SOR wHES 


PSS oe YSRG = 
fiste Pascal Tacks #8¢ Te 
Rise by ed Sas. 


ejeaisn ‘Mastecng Tarde Pascal 
2 IS-DOIS Fade. Rluyiewsd by Nick Sam 
= es ee as: 
1S POUL SS ey Shik 
t ; 


Sai] Risvessa Bp. Redeoed Cos CA SSF 





The newsletter/disk publication for Turbo Pascal® users 


Are you looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or incorporate 
into your programs? Are you interested in improving and 


Computing, Media Cybernetics, Nostradamus, and more! 
¢ News and commentary detailing the latest 
products and developments in the Turbo Pascal 


expanding your Turbo Pascal programming skills? 
Then you deserve a subscription to Turbo Tech 


programming community. 


Report, the bimonthly newsletter/disk publication from 
the publishers of Dr. Dobb’s Journal and Micro/Systems 
Journal. Each issue delivers more than 250K of Turbo 
Pascal source code programs on disk, and 24+ pages of 
articles, Turbo Pascal software and book reviews, and 


analysis and commentary. 
It’s the only publication 
delivering such focused tech- 
nical articles with code on 
disk. Each valuable issue 
contains: 

e Articles on topics like 
speedy 3D graphics, math- 
ematical expression parsers, 
creating global gotos, mem- 
ory resident and AI applica- 
tions and more—all written 
by Turbo experts. 

e Reviews of the latest 
Turbo Pascal software pro- 
grams from companies like 
Borland International, Blaise 


eee 
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—yYes! I want'a one-year subscription to Turbo Tech Report (6 
issues with 6 disks) for $99. 
[_] PC/MS-DOS [_] Macintosh 


[_] Kaypro [_] Osborne [_] Apple 


Format: 


CP/M: 


PAYMENT MUST ACCOMPANY ALL ORDERS 


[_] Check/money order enclosed. 














[_] Charge my: —— VISA ——M/C —— AmExp. 
Card * Exp. 
Signature 

Name 

Address 

IY cn ctaeenmentieeiamee SHALE Zip 





Orders outside U.S.: add $30. 
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¢ A disk filled with Turbo Pascal code! You'll get 
the Turbo Pascal utilities and routines discussed in the 
newsletter’s articles, as well as applications developed by 
Turbo users from around the world. You'll receive 
programs that make labels, generate menus, provide 
faster screen access, transfer files, and more! 


If you’re an expert Turbo 
Pascal programmer or a 
novice interested in 
expanding your Turbo skills, 
you need a publication that 
speaks your language: Turbo 
Tech Report. Subscribe 
today at the special price of 
just $99—that’'s 33% off the 
regular price of $150. To 
order by credit card, call toll- 
free 1-800-533-4372. Or 
mail the coupon with your 
payment to Turbo Tech 
Report, 501 Galveston 
Drive, Redwood City, CA 
94063. 
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Listing One (Text begins on page 44.) 


* prndrv.asm 

; printer driver startup code 

; ms/pc-dos 2.x, 3.x installable device driver 
scopyright (c) Andy Klein 1987 


PRIVATE STACK SIZ equ 256 private stack size, probably much larger 


than necessary 


© 
a 
e 
’ 


IS CHAR DEV equ 32768 sbit to set for this driver 


codeseg segment para public 'CODE' 


codeseg ends 
dataseg segment para public 'DATA' ; Gefine first 
dataseg ends 

assume cs:codeseg, ds:dataseg, es:dataseg, ss:dataseg 


codeseg segment para public 'CODE' 


org 0 ;drivers are always org'ed at 0 
; with the device header first 


public prn_driver, dev_strategy , dev_interrupt_ 


prn_driver proc far ;drivers invoked as far calls by DOS 


;device header starts here 


next dev db 4 dup(255) 7;no next driver in this file, need a 
;(long)-1 which is 4 bytes of 255 

attribute dw IS_CHAR_ DEV 

strategy dw dev_strategy ;device strategy entry point 

interrupt dw dev_interrupt ;device interrupt entry point 

dev name db "PRN . 


7end of the device header 


;code segment variables, these will be addressable before we setup 
; our data and stack segment 


req hdr seg dw (0) ; pointer to request header, segment part 
req hdr off dw (0) s pointer to request header, offset part 
caller ss dw (0) ; Caller"s ss 


caller sp dw (0) ; caller*s sp 


;strategy - this strategy function saves a long pointer to a 
; request header in code segment variables req hdr seg and 
7 Beqvhdr: of f+ 

; The address of the request header is passed in es:bx 


dev_strategy : 


mov word ptr cs:req hdr off,bx 7Save request header pointer 
mov word ptr cs:req hdr seg,es * in code segment variables 
ret 7 .--and back to dos 


public Scswt, S$begin zkeep Aztec linker happy, all Aztec C compiled 
+ functions have a reference to these 2 functions 
# which normally drag in the startup code 


Scswt proc near 
Scswt endp 


Sbegin proc near 
Sbegin endp 
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extrn driver functions :near 


zinterrupt - not a true interrupt handler (it ends with a ret as 


d 
; to an iret), this function recieves no parameters. ae WT THEMA TICAL 
; uses the information stored in the request header we ee AND ow | TISTICAL 
an 
; saved a pointer to in the strategy function to determine what SYSTEM 
to do. for IBM PC-XT-AT-System/2 
and Compatibles 


dev_interrupt : 





;STEP 0 written by Lee E. Edlefsen 
; Preserve machine state and Samuel D. Jones 
eli 7 no interrupts when dealing with machine state ; 
push ds ; save machine state on caller's stack save Thousands save Days In 
push es in Mainframe \ segramrnag 
push ax S Time 
push bx i 
push cx ee 
push dx 
push si AZ ep s 
push di ; yea 
push bp 
pushf 5 : 
mov cs:caller _ss,ss 3 save caller stack frame (ss and sp) | ; a Extremely 
mov cs:caller sp,sp *: Fast 
sti zinterrupts OK ; 
Easy to Learn and Easy to Use! 
sNow the real work starts ... 
The New Standard for Scientific 
;STEP 1 ee . 
; Get the driver's segment into the ax register and Statistical Computation 
; This begins our task of establishing addressability 
“I used to use FORTRAN and PASCAL for languages, 
viet Gr -aie ep TSP and Minitab for statistics, MATLAB for math, and 
. NAG and IMSL for FORTRAN subroutines. Now I just 
use GAUSS.” 
*;STEP 2 Dr. Choon-Geol Moon 
; Copy the request header stored at req hdr_seg:req hdr Stanford University 
off 
. , = @ STATISTICS (means, frequencies, crosstabs, regression, non- 
2 SRS CUE: DELVES aN S SRakeASSDLe: LeaseSh: Reaoek sadnch ek Siena likelihood, pra least 
squares, simultaneous equations, logit, probit, loglinear 
mov si,cs:req hdr off ;load up the source string segment: models, & more) 
offset © GRAPHICS (publication quality 2D & 3D: color, hidden 
mov bx,cs:req hdr _ seg ; into ds:si registers line removal, zoom, pan; up to 4096 x 3120 resolution; 
mov ds,bx produce Tektronix format files; output to most screen 
mov eS,ax ;load up the destination string drivers, plotters, printers) 
: ® : 
; . rach uy ea err eek rus: DATABASE MANAGEMENT 
mov di,offset cs:driver rh_ ; into es:di registers SIMULATION © TIME SERIES/SIGNAL PROCESSING 
cld ;set direction flag to increment ° LINEAR PROGRAMMING 
si and di ¢ NON-LINEAR OPTIMIZATION 
Kor. Gx; cx ;clear out cx e NON-LINEAR EQUATION SOLUTION 
mov cl, [si] ;first byte of request header is its e INTERACTIVE MATRIX PROGRAMMING 
length e LARGE-SCALE MODULAR PROGRAMMING 
rep movsb ; ... and copy it ... e ADD YOUR OWN COMMANDS 
e LINK FORTRAN, C, ASSEMBLER SUBROUTINES 
;STEP .3 
; This step establishes addressability of data segment 
; and sets up driver's stack frame. 
; It also sets register bp equal to sp, a state required . 
; for calling the first C function —— 
: Remember that register ax contains the driver Call < or Write PO. Box 6487 
: segment APTECH | Kent, WA 98064 
; We will set ds, es, ss all equal tocs... ee a SYSTEMS, INC. (206) 6341-6679 
mov bx,offset c_stack_top sthis will go into sp 30 DAY MONEY-BACK GUARANTEE 
cli ;no interrupts while we mess with these registers The GAUSS Mathematical 


and Statistical System 
The GAUSS Programming 
Language (alone) 


mov ds,ax 
mov €S,ax 





mov SS, ax snow establish our stack frame ar 
mov sp,bx Shipping/ handling 
mov bp, bx sbp = sp this is critical for C GAUSS requires a 320K (51 2K required for high resolution graphics) 
DOS 2.10+, and a math coprocessor. 
(continued on next page) NOT COPY PROTECTED 
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Listing One (Listing continued, text begins on page 44. ) 


sti 30k for an interrupt to occur 
snow we have set up the environment for C 
7STEP “4 
Call our first C function, 
passing the command code from the request header as 


=e Se Ve 


a parameter. (void)driver functions (cmd_code) ; 

XOr ax,ax ;clear out ax 
mov bx,offset driver rh_ zbx points to our request header 
mov al,byte ptr [bx + 2] #3rd byte of request header is command code 
push ax sto pass parameter(s) to a C function, 
call driver functions _ # push it (them) on stack and call function 
pop ax ;caller must remove parameter(s) from stack 

*STEP.5 


; At this point we are done with the function our driver 
*; was to perform. Now we must copy our private request header 


; back into the original request header DOS gave us a pointer 
# to back in the strategy function. 


mov es,cs:req hdr seg ;load address for orig RH into es:di 
mov di,cs:req hdr off 

mov si,offset driver rh_ sds:si- our (updated) copy 

cld ;set direction to increment 

XOF CxX;,'CX 7clear out cx 

mov cl, [si] zlength is at first byte 

rep movsb So se0 Sn copy it 


2 
s Restore machine state saved in STEP 0 
7; and return to DOS 


cli smachine state restore should not be interrupted 
mov ax,cs:caller ss ;switch to caller's stack frame 
MOV SS,ax 

mov ax,cs:caller sp 

MOV sp,ax 

popf toss POP all Gk 1t-i 3s; 

pop bp 

pop di 

pop si 

pop dx 

pop cx 

pop bx 

pop ax 

pop es 

pop ds 

sti zenable interrrupts 

ret 7; ..- back to dos and bye bye 


prn_driver endp send of driver code 


codeseg ends 


;Data segment, contains our local stack space 
# and C addressable copy of request header 


dataseg segment para public 'DATA! | 
public c_ stack top 


db PRIVATE STACK SIZ dup (0) 
c_stack_top label word 


public driver rh_ 
driver rh_ db 32 dup (0) #C addressable copy of request header 


| 
| 

dataseg ends 

END End Listing One 
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Listing Two 
per rr 
Device Driver Request Header structure definition 
and status word #define's 


copyright (c) 1987 Andy Klein 
xx / 


typedef struct 
{ 


unsigned char length, /* length of header */ 
unit, /* unit code ... which unit to use */ 
cmd; /* command to execute */ 

unsigned int status; /* status of operation */ 


unsigned char reserved[8], 


media type; /* media descriptor byte, block dev only */ 


unsigned int xfer buf offset, 
xfer buf segment, 
xfer count; 

char dummy[32 - 20]; 


/* data for operation */ 


} request hdr; 


#define ERROR_MASK 32768 
#define BUSY MASK 1024 
#define DONE_MASK Siz 


#define WRITE PROTECTED 0x00 


#define UNKNOWN UNIT 0x01 
#define DEV NOT READY 0x02 
#define UNKNOWN _CMD 0x03 
#define CRC_ERROR 0x04 
#define BAD DRIVE REQ LEN 0x05 
#define SEEK ERROR 0x06 
















386|DEBUG 


e A symbolic debugger for 80386 32-bit 
protected mode programs which run 
under Phar Lap's 386|DOS- Extender™ 








e Breakpoints, data watchpoints, and built-in 
disassembler 


Fully compatible with Phar Lap’s 386|ASM/LINK, 
the MetaWare 80386 High C™ and Professional 
Pascal™compilers, and the Green Hills 80386 
Fortran compiler 


Runs on all DOS-based PCs equipped with an 
80386 CPU, including the Compaq® DESKPRO 
386™, the IBM®PS/2™ Model 80, and most 
accelerator cards, including the Intel Inboard™ 
S86/AT 


$195 —Available today 









(617) 661-1510 


Phar Lap Software, Inc. 
60 Aberdeen Ave. 
Cambridge, MA 02138 


“The 80386 Software Experts” 
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nie) 


(continued on next page) 


m4 your wa¥ CLEAR INTO TH 
$2 FUTURE WITH THE YIRTUA 
2. oDoOs.aRRAM 


E 
L 


ENUT RONMENT 


Me UNTX USERS SAY UNIX 
i A STEP TOWN FROA QOS! UNBELIEVABLE 2 


ONLY TO THOSE WHO ARE NOT YET USING IT! 


DESKTOP MINIFRAME 
aZ BIT VIRTUAL MEMORY IN FAN 


A SUBCONSCIOUS BODY OF MULTITASKING TRAPS 
8. VECTORS THAT BUNS UNLIMITED TASKS; FULL 
SCREEN COMPRESSION CACHING WITH CONTROL - Ls 
CONCURRENT TURBO SUPERBASIC INTERPRETING 
THAT'S MORE STRUCTURED THAN C; UNLIMITED 
LENGTH STRINGS, BUFFERS 3. PROGRAM LINES 
WITH NO LOSS OF VARS WHEN EDITING SOUBCE 
CODE; CONSOLE WINDOWING... 


Fil NMOS—-UOUERSTHLCTIWE 
THE PERFECT TOOL FOR DEVELOPING AND 
IMPLEMENTING C LANGUAGE CONSTRUCTS! 


CALL 201-326-G6846 


OR WRITE FOR THE LATEST CATALOG-DIRECTORY 


BUANTLUM COMPUTING ooiags J. A78B1 
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Listing Two (Listing continued, text begins on page 44.) 


#define UNKOWN_MEDIA 0x07 | 
#define SECTOR_NOT FOUND 0x08 
#define PRN_NO PAPER 0x09 
#define WRITE FAULT Ox0A 
#define READ FAULT 0x0B 


#define GENERAL FAILURE 0x0C 
#define INVALID DISK CHG Ox0F 


Listing Three 


/** drvfunc.c 
Device Driver for DOS 2.x, 3.x 
This is the function table that is called once 


the interrupt function has established addressability 
copyright (c) 1987 Andy Klein 
x / 
#define LAST FUNCTION 15 
#define Q FUNCTIONS LAST FUNCTION + 1 


extern void init(), output_status(), output (), output flush(), 
output_verf(), bad _cmd(); 


[xx 
function_table is an array of pcinters to functions 
returning nothing (void). It is analogous to a jump table 
in assembler. 

xx / 

void (* function_table[Q FUNCTIONS] ) () = { 
EOF] init, 
pee ee bad_cmd, /* media check */ 
fee bad_cmd, /* build bpb */ 
{A 3 SF bad_cmd, /* ioctl input */ 
PRE bad_cmd, /* input */ 
fe SRY bad_cmd, /* input no wait */ 
fo eae bad _cmd, /* input status */ 
LET RS bad_cmd, /* input_flush */ 
[*- 8. %/} output, 
A. D5 HF output verf, 


JE 10. #7 output status, 
fA Ry output flush, 


FRE B bad_ cmd, /* ioctl output */ 
£* 2387 bad_ cmd, /* open device */ 
T® gal bad _cmd, /* close device */ 
feos Z bad_cmd /* removable media */ 
}; 
void 
driver functions (cmd) 
int cmd; 


{ 
if ( cmd > LAST FUNCTION ) 
(void) bad _cmd(); 
else 


(void) (* function _table[cmd]) (); 
}/* driver functions() */ 


Listing Four 


/** error.c 

Error handler for printer driver 
copyright (c) 1987 Andy Klein 
ke / 


#include "rh.h" 


extern request_hdr driver rh; 


void 
bad_cmd () 
{ 


driver _rh.status = ERROR MASK | UNKNOWN_CMD; 





End Listing Two 


End Listing Three 


(continued on page 74) 
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At Rainbow Technologies, we think protecting 
software developers’ investments is very serious 
business. That’s why we designed the first fully 
effective security solution for software running on 
PCs and other computers. 


Our family of virtually impenetrable Software 
Sentinel hardware keys provides the highest level of 
software protection the developer can get. While 
remaining invisible to the end user. 


Take a look. 





Key Sentinel Family Features. 


Prohibits unauthorized use of software 9 No need 
for copy protection 9 Unlimited backup copies 9 
Virtually unbreakable 9 Pocketsize key 9 Trans- 
parent operation 9 Transportable 





© Higher level language © 
Software i 
Sentinel. © Runs under DOS on 
© Runs under DOS and Xenix, PC/XT/AT and compatibles 
on IBM PC/XT/AT and : © Parallel port version only _ 


compatibles _ .  - 
CAptioedie  ««-«- OPOware = 
(Never a fixed response)  Sentinel-W. 


: 0 Seria or parallel port vers t+ 
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The 
Heap Expander 


dynamically allocates data storage 

space in expanded memory x 
simple interface 9 95 
up to 8 megabytes $5 . 

of heap space 

with appropriate hardware 
libraries and source code for: 

—Microsoft C, Lattice C, Turbo C, 

Mark Williams C, and others 

— Turbo Pascal 

— Logitech Modula-2 
requires IBM PC, XT, AT, or close 

compatible with LIM-standard 

expanded memory and MS—DOS 

or PC—DOS ver. 2.0 or above 
MC/VISA/COD call 

1-800-248-1045 x100 (US) 

1-800-952-5560 x100 (Idaho) 


The Tool Makers 


P.O. Box 8976 
Moscow, Idaho 83843 


(208) 883-4979 


*Idaho residents add 5% sales tax 
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ACCELERATE YOURS 
C DEVELOPMENT 2 it 


RTC pus 


FORTRAN/RATFOR TO C TRANSLATOR* 


[=] RTC Plus supports stan- 
sources of FORTRAN dard FORTRAN-77 as well 
while moving up to C. as some DEC VAX ex- 
Speed up new C devel- tensions (excluding 
opment and avoid re- FORTRAN I/O, character 
inventing the wheel. and complex statements/ 

[=] Use RTC Plus to translate expressions). Over 95% of 
FORTRAN code and librar- STUG’s RATFOR is sup- 
ies — and maintain code ported. The Translator 
with greater ease and generates K&R C. 






















(=) Maximize the vast re- 





flexibility in C. (=) Finally a cost-effective 
(=) Source code to C librar- method of conversion into 
ies is included. C. 





DEMO $10 
MS-DOS $450 


*Translate: “To convey to heaven without natural death.” 


COBALT BLUE 


1683 MILROY, SUITE 101, SAN JOSE, CA 95124 
408-723-0474 
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Listing Four (Listing continued, text begins on page 44. ) 
} 


#define TIME OUT 1 
#define IO ERR 8 
#define NO PAPER 32 
#define BUSY 128 


void 
driver error (stat) 
int stat; 


{ 


int err code; 


if ( stat & ERROR MASK ) 
stat “= ERROR MASK; 

switch {stat °) 

{ 


case TIME OUT: err code 
break; 
case IO ERR: err code 
break; 
case NO PAPER: err code = PRN NO PAPER; 
break; 
case BUSY: err code 
break; 
default: err code 
break; 


DEV_NOT_ READY; 


GENERAL FAILURE; 


DEV_NOT_ READY; 


GENERAL FAILURE; 


} 
driver rh.status 
}/* driver ¢rror(): */ 


ERROR_MASK | err code; 


Listing Five 
{[**-” ANE ve 

Printer driver initialization 
copyright (c) 1987 Andy Klein 


xx / 


#include "rh.h" 


extern request hdr driver rh; 


char *title = "\nPrinter Device Driver for Okidata 92"; 
char *copyw = "copyright 1987 (c) Andy Klein\n"; 

void 

init () 


{ 
extern unsigned Uend; 
/* Uend is inserted by the Aztec linker */ 
unsigned show cs(); 
void reset_printer(), initialize oki92(); 


puts (title); 
puts (copyw) ; 
(void) reset printer (); 
(void) initialize oki92(); 
/* set ending address of driver, set status word */ 
driver _rh.xfer_buf_segment = show cs(); 
driver _rh.xfer buf_offset = (unsigned int)& Uend; 
driver _rh.status = DONE MASK; 9 
Te SE MS 


#define ELITE FONT 28 


void 
initialize oki92() 


{ 
char 2 prn(ELITE FONT); 
}/* initialize oki92() */ 





End Listing Four 


End Listing Five 
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Listing Six | 


; show_cs.asm 

; ¢ call is (unsigned) show cs(); 
; Returns contents of cs register 
;copyright (c) 1987 Andy Klein 


include lmacros.h 


procdef 
mov ax, CS 
pret 
pend show_cs 


show_cs 


finish End Listing Six 


Listing Seven 


/** output.c 
Printer driver output functions 
copyright (c) 1987 Andy Klein 


xx / 


#include "rh.h" 
extern request_hdr driver_rh; 


void 
out put () 
{ 
int stat; 
unsigned xfer off, bytes xferd; 
register char outch; 
char fetch char(); 


xfer off = driver_rh.xfer_buf_offset; 
for ( bytes xferd = 0; bytes xferd < driver_rh.xfer_count; 
++bytes xferd, ++xfer_off ) 
{ 
outch = fetch char(driver_rh.xfer_buf_segment, xfer_off); 
if ( (stat = char_2 prn(outch)) ) 
{ 
(void) driver _error(stat); 
break; 


} 


driver rh.xfer_count = bytes _xferd; 
if ¢} stat.) 
driver rh.status = DONE_MASK; 
else 
driver rh.status = stat; 
}/* output() */ 


void 
output verf () 
{ 
(void) output (); 
}/* out_verf() */ 


void 
output status () 
{ 
/** 
if device is currently doing an operation, 
driver rh.status = BUSY_MASK & DONE_MASK; 
else if a write can begin immediately, 
driver rh.status = 0 & DONE MASK; 
xx / 
if ( printer _busy() ) 
driver rh.status = BUSY_MASK & DONE_MASK; 


else (continued on next page) 
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Version 2.2 of the 


asloolkit 


The power and flexibility 
of UNIX Commands 
within the DOS environment. 


4 Reasons 
Why the MKS Toolkit 
Is a Very Large Package 
for a Small Price: 


1 It contains the UNIX 
e full-screen editor VI/EX 


—.and handles the various national character 
sets provided with DOS, as well as 8-bit data and 
improved support for EGA and colour attributes. 


2 It comes with a complete 
e KORN SHELL 


— a programming language in itself including vi 
and emacs command-line editing mode. 


3 It has the only version of 
e AWK available under DOS 


— written to the latest Bell Labs specifications 
for System V.3, allowing multiple-subscripted 
arrays; awk is an excellent fourth generation lan- 
guage that even non-programmers will find read- 
ily accessible. 


Besides all this it comes 


e with over 110 programs 
— including many new commands such as init, 
login, passwd, and who to facilitate multiple 
users of the same machine, or multiple applica- 
tion environments; pr and fmt for formatting | 
files; crypt for file encryption; pack, unpack, 
and pcat for data compression; and much more. 


All for $139. 


Now available separately: 
onsAwKk 
ESN | 


$75 each 


The MKS Toolkit, site-licensed to major American cor- 
porations, is designed for IBM PCs, XTs, ATs, and com- 
patibles running under MS-DOS (or PC-DOS) 2.0 and later. 
It includes over 380 pages of documentation. 


Mortice Kern Systems Inc. 


43 Bridgeport Road East, Waterloo, Ontario, 
Canada N2J 2)4 (519) 884-2251 
uucp: {allegra,decvax,ihnp4}!watmath! mks! toolkit 
For information or ordering call collect. 
Prices quoted in U.S. funds. MasterCard, VISA, American 
Express, and purchase orders accepted. OEM & dealer inquiries 
invited. UNIX is a trademark of Bell Labs. MS-DOS is a 


trademark of Microsoft Corp. No UNIX licence required. Updates 
to existing licences are available for $45.00. 
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Listing Seven (Listing continued, text begins on page 44. ) 


driver rh.status = DONE_MASK; 
}/* output status() */ 


void 
output flush() 
{ 


i xx 
terminate all pending requests, 
meaningless for this device 
xk / 
driver rh.status = DONE MASK; 
}/* output flush() */ End Listing Seven 
Listing Eight 
; prilport.asm 
; low level parallel port output functions 


scopyright (c) Andy Klein 1987 


include lmacros.h 7Aztec C macros for assembly language functions 
+ for other environments replace with calling 
# conventions for your complier 


ERROR MASK equ 32768 
PRINTER INT equ 017H 
PRINTER ID equ 0 sipti = 0, lpt2 = 1, lpt3. = 2 


sprinter commands, put into ah 


copy protection and 
customer satisfaction? 


here's a better way to protect your software. 
ts called the Secom Key, and it works or more information, contact 


[_] The Key is completely transparent to the Secom Information Products Co. 


end user. ; 
; : . 500 Franklin Square 
[_] Won't interfere with peripheral operations. : 1829 East Franklin Street 


isk dri ill, NC. 27707 
[_} Doesn’t occupy the disk drive. | | Chapel Hill, NC 2770 
) The Key allows unlimited backup copies. Ee BE teseconker. 


4 elfe ; : for real 
[_} Makes site licensing easy and auditable. “@ + software 


(_) Easily installed. Uses only 1000 bytes. Ee rs: 
[_] Over 60,000 have been sold worldwide. 
[_} Same size as RS-232 plug. 


J) Available in quantities for as low as $19.95. Secom Information Products Company 


A Subsidiary of Secom General Corporation 


Call Toll-free 1-800-843-0413 
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PRINT CHAR equ 0 
INIT PRN equ 1 
READ STAT equ 2 


sprinter status byte error codes, returned in ah 


TIME OUT equ 1 


IO_ERR equ 8 
NO PAPER equ 32 
BUSY equ 128 


PRINTER_FAILURE equ TIME OUT+IO ERR+NO PAPER 


;C call is (void) reset printer (); 


zno value returned 
procdef reset printer 
mov ah, INIT PRN 
mov dx,PRINTER_ID 
sti 
int PRINTER_INT 
XOX aX,ax 
pret 
pend reset printer 


;C call is printer busy(); 
zreturns 0 (FALSE) if not busy, nonzero (TRUE) if busy 


procdef printer _busy 
mov ah,READ STAT 
mov dx,PRINTER_ID 
sti 
int PRINTER_INT 
and ah,BUSY 
jz. printer _is_ busy 


be 


AT LAST 


a 
3 
5 
5 
5 
3 


AN ADVANCED APL TEXT 


Are you getting the most productivity possible out 
of the most productive programming language? 
If not, this book is for you. 


APL ADVANCED TECHNIQUES AND UTILITIES 


Gary A. Bergquist 


450 pp. $44.95 


Branching and Looping 

Computer Efficiency Considerations 
Positioning Character Data 

Sorting and Searching 

Selecting 


Frequency Counts, Accumulations 
and Cross Tabulations 

Writing User-Friendly Interactive 
Functions 

Date Manipulations 

System Development Procedure 


Disk $15.00 


Writing Reports 
Programming Standards 
Workspace Design and 
Documentation 

File Design and Utilities 
Boolean Techniques 
Irregular Arrays 

Curve Fitting 

Financial Utilities 
Exception Handling 


More than 150 time-tested utility functions listed in the book 
and available on floppy disk. 


TO ORDER, call (203) 872-7806 
or write: 


ZARK INCORPORATED 


53 SHENIPSIT STREET 
VERNON, CT 06066 


THE FINAL WORD IN APL 
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64180/Z80 


Using bank switched or disk 
based overlays, your modular 
program can be as large as 
you want. Our linker generates 
the code to switch in the correct 
bank at the right time, or load 
the right module from disk. 
Includes source to the Overlay 
loader for easy customization 
to your requirements. SLRNK 
Plus 3.0, from the leaders in 
8-bit development tools. 

$195 


1622 N. Main St. 
Butler, PA 16001 
(412) 282-0864 (800) 833-3061 TELEX: 559215 . 
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XOr ax,ax 
prec 
printer is busy: 
mov ax,l 
pret 
pend printer busy 


s>..€C e€ail is (char) fetch _char(segm, offs) ; 
; gets the character at segm:offs and 
; returns it 


procdef fetch _char, <<segm, word>, <offs, word>> 
push ds 
mov bx,offs 
mov ds,segm 
mov al,byte ptr ds: [bx] 
and ax,OffH 
pop ds 
pret 
pend fetch_char 


#C call is char_2_prn(outch); 
; prints outch on PRINTER ID 
3; returns 0 if ok, error code 


procdef char 2 prn,<<outch,byte>> 
mov al,outch 
mov ah,PRINT CHAR 
mov dx,PRINTER_ID 






Listing Eight (Listing continued, text begins on page 44.) 


| sti | 






386 °386°386 °386 ° 386 386 ° 386 °386 °386*386° 386 °386°386°386 °386°386°386°386°386°386°386< 


386 
C ana Pascal 


for MS-DOS 


MetaWare Incorporated announces the first 
available C and Pascal compilers that generate 


protected-mode 80386 code 


for running on any 80386 machine that runs MS-DOS (eg., the 
Compaq Deskpro 386). The compilers are fu nctionally identical to 
the well-respected 8086/286 MS-DOS High C™ and Professional 
Pascal™ compilers that have received outstanding reviews in such 
magazines as Computer Language, Dr. Dobb's, and PC Tech Jour- 
nal. Our compilers are currently used by industry leaders such as 
Ashton-late, AutoDesk, ANSA, and Lifetree. Now you can get them 
generating 80386 code. 

If you have an application that requires the large 32-bit address 
space and the full 32-bit registers of the 80386, expand your mar- 
ketplace to the rapidly growing supply of 80386 MS-DOS machines. 
Contact MetaWare for your 80386 software solution today! 
(408) 429-6382, telex 493-0879. 


Durable Software Constructed Automatically ™ 


Metz NN, sre" 


INCORPORATED 
903 Pacific Avenue, Suite 201 e Santa Cruz, CA 95060-4429 


SBE *9BE + 9BE e9BEo9BE -98Eo98E OBE o98E -9BE OBE 98 -9BE-9BEeoBEegsEogRE 
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SCIENTIFIC/ENGINEERING 


GRAPHIC TOOLS 
for the IBM PC and compatibles 


FORTRAN/Pascal tools: GRAFMATIC (screen graphics) 
and PLOTMATIC (pen plotter driver) 


These packages provide 2D and 3D plotting capabilities 
for programmers writing in a variety of FORTRAN/Pascal 
environments. We support MS, R-M, LAHEY FORTRAN 
and more. PLOTMATIC supports HP or Houston Instru- 
ment plotters. Font module available too! 


Don’t want to program? Just ask for OMNIPLOT! Menu- 
driven, fully documented integrated scientific graphics. 
Write or call for complete information and ordering in 
structions. 


GRAFMATIC—PLOTMATIC—OMNIPLOT [S] & [P] 


10.0 100. 0 1000. 0 


(ZH) AININOII 


CONCENTRATION 





TIME (sec) 


Microcompatibles, 301 Prelude Drive, Silver Spring, MD 20901 
(301) 593-0683 
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int PRINTER_INT 
test ah,PRINTER_ FAILURE 
jnz printer has failed 
XOr ax, ax 
pret 

printer has failed: 
mov al,ah zresult code in ah, mov it to al 
and ax,PRINTER FAILURE 
pret 

pend char 2 prn 


finish 


End Listings 





Sees Amazing 


ee alam) cia aU A dlate es COMPUTING 


File System Utility Libraries Your Original AMIGA™ Monthly Resource 
All products are written entirely in K&R C. Source. FEATURING 
code included, No Royalties, Powerful & Portable. ak oo 

- *Comp Amiga Hardware an are reviews 
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5 7 40.00 *Step by Step Hardware projects 
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Make $500/hr. 





Now develop DBMS applications 10 times faster for 
only $199 with MAGIC PC — or your money back! 


Database programmers, why waste your 
time hacking out code? 

Imagine how much faster and more profit- 
able you'd be if you could whip up power- 
ful database applications without the 
time-consuming coding pains... 
Introducing Magic PC from Aker, your pro- 
fessional dream come true. It’s not 
another line-by-line syntax treadmill like 
any DBMS or 4GL. 

Finally you can program as quickly as you 
design, while you delegate all the mun- 
dane and redundant coding tasks to 
Magic PC. 


Program 10 times faster 


Develop 
relational 
database 
applications 
10 times fas- 
ter using a 
visual 
design- 
driven inter- 
face. Instead of writing mountains of “how 
to’ procedural code, you quickly place your 
program design specs in Execution Tables 
and Magic PC's engine executes them auto- 
matically. Don’t lose any more time editing 
and debugging programs by hand. 


Incredible Zoom power 
Magic PC's 
pheno- 
menal 
Zoom 
power mag- | 
ically co- 
executes 
related 
programs 
through nested Zoom windows smoothly 
with auto data scrolling in all directions. 
While Zooming, query and transfer data 
across windows or even Zoom deeper. 
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No more maintenance! 


Change your programs on the fly without 
any manual maintenance responsibility. 
Magic PC automatically updates your 
changes online since all the data describing 
your design (data dictionary, programs and 
menus) make up a single file, self- 
maintaining Integrated Library. 


Magic PC does it all 


Design your entire database application 
with only one comprehensive develop- 


ment system. Generate both online 
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import/export, etc.) with full color and gra- 
phics. You no longer fall between the cracks 
dealing with separate and inconsistent 
programming utilities. 

Free LAN features 
Develop multi-user applications for 
local area networks with Magic PC's 
automatic support for file and 
record locking security. 

Quick prototyping 
Prototype a complete working application 
in just hours and get immediate customer 
feedback to finalize the design. It's a true 
time-saver. 

Stand-alone runtime 
Distribute your applications and protect 
your design with a low cost runtime engine. 
It has the friendliest end-user visual inter- 
face you've ever seen with built-in, menu- 
driven and syntax-free data retrieval power. 


Jeff Duntemann, PC Tech Journal: 


“Magic PC is probably the best integrated 
database application generator that we 
have seen...very smooth system, and 
smoothness comes at a premium these 
days.’ Also recommended by PC Magazine, 
PC World, PC Week, Computer Language, 
Data Based Advisor and many more around 


the world. 
Try it for $19% 


If you develop database applications for a 
living, you cant afford not to try Magic PC for 
yourself right now. For $19.95 you'll get the 
Magic PC Tutorial software and documenta- 
tion for hands-on evaluation, complete with 
a step-by-step guide to develop an Order 
Entry sample application in just a few 
hours. 


Magic PC 3S69X $199 


No kidding! For a limited time only, save 
almost $500 off the $695 list price, and get 
the complete unprotected Magic PC soft- 
ware for only $199 at our special introduc- 
tory non-resale price. 


Money back guarantee 


Even at $199 you can't go wrong with our no- 
risk guarantee: keep it only if it makes 
magic for you, or we'll buy it back 
within 30 days less $19.95 
restocking fee. 
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B ring convenience, power and versatility to 
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Two statistical packages in one! 


A library disk and reference manual 

Use these powerful statistical routines to build 
your applications. Routines include: @ statistical 
distribution functions ® random-number genera- 
tion ® basic descriptive statistics © parametric 
and non-parametric statistical testing ® bivariate 
linear regression, multiple and polynomial 
regression. 


A demonstration disk and manual 

This package incorporates the library of routines 
into a fully functioning statistical program. Two 
data management programs are included to 
facilitate the storage and maintenance of data. 


Full source code is included. (For IBM PC’s and 
compatibles. Turbo Pascal version 2.0 or later, 
and PC-DOS 2.0 or later are required.) 


STAT Toolbox Item #22-4 $69.95 


TO ORDER: Return this coupon with your 
payment to: M&T Books, 501 Glaveston Dr., 
Redwood City, CA 94063. Or, Call TOLL-FREE 
800-533-4372 Mon-Fri 8a.m.-5p.m. In CA call 
800-356-2002 


YES! Please send me the STAT Toolbox 
for only $69.95 


Subtotal 
CA residents add sales tax % 
Add $2.25 per item for shipping 
TOTAL 
Name 
Address 
City 
State Zip 


LJ Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L] VISA L) M/C L) AMEX 


Card No. 
Exp. Date 
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Listing One (Text begins on page 106. ) 
1| #define PUBLIC 


2 | 


3| #ifdef DEBUG 


4| # define PRIVATE 

Jt # define D(x) x 

6| #else 

EAS define PRIVATE static 
8| # define D(x) 

9| #endif 
10| 


11| #ifdef MSDOS 


End Listing One 


The number of system clock cycles in a second 

(ie. the input frequency of the counter/timer). 
The number of ticks needed to get a delay of d 
seconds. 'd' can be a fraction: TIMR_TICKS(.5). 


Address of control port 

Address of counter 2 data port 

Control word to load new count into 

timer 2 (the speaker--2 bytes, lsb first). 
Timer initilized in mode 3 (square wave) 
Same but for timer 0 (system clock). 


Let oe define MS(x) x 
13| # define UX(x) 
14| #else 
15| # define MS (x) 
16| # define UX(x) x 
17| #endif 
Listing Two 
1| /* Defines for IBM-PC Hardware */ 
2 | 
3| /* Timer defines: 
co 
5| * TIMR CLK 
6}: .-* 
72 * TIMR_TICKS (d) 
8| * 
Of * 
10| * TIMR CTRL 
11] * TIMR 2 DATA 
LZ | * TIMR 2 LOAD 
135,52 a 
14| * 
15| | * TIMR_O LOAD 
16| * TIMR O DATA 
Pip ey 
18 | 


19| #define TIMR CLK 
20| #define TIMR_TICKS(d) (int) ((double) (d) * (TIMR_CLK/65536.0) ) 


1193180L 


21] 

22| #define TIMR CTRL 0x43 

25 

24| #define TIMR_O DATA 0x40 

25| #define TIMR_O LOAD 0x36 

26| 

2/| #define TIMR 2 DATA 0x42 

28| #define TIMR 2 LOAD Oxb6 

29| 

30| /* Programmable peripheral interface: 

34. [505 

32 | PPI Base address of interface 

wets PPI SPKR Bit mask to enable speaker (bit 0 is 
34| * gate on timer chip, bit 1 actually 
Sot ™ enables the speaker). 

26 oe 

37| 


38| #define PPI 
39| #define PPI _SPKR 


ne) 
D> 
ee Re RS EF 


48°: * 


Ox61 
0x03 


Make the speaker beep at a particular frequency: 


SETFRQ (freq) ; 


SPKR_ON(); 
SPKR_ OFF (); 
/ 


Sets the frequency, freq can be floating 
point 

Turns the speaker on. 

Turns it off again. 


50| #define SETFRQ( freq ) 


Loe SL) 
{ 


unsigned 


int count; 
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MetaWINDOW 





54| 

at count = TIMR CLK / freq ; 

56] 

57| outp( TIMR CTRL , TIMR 2 LOAD ); 

58 | outp( TIMR_2 DATA, count & Oxff ); 

eB outp( TIMR 2 DATA, (count >> 8) & Oxff ); 

60| } "Product of the Month" 

a else "a technological tour de 

63| #define SPKR_ON() outp( PPI, inp(PPI) | PPI_SPKR ) force for fast PC graphics. 

64| #define SPKR_OFF () outp ( PPI, inp (PPI) & ~PPI SPKR ) NO ROYALTIES! 
End Listing Two 

Listing Three 


1| /* These #defines are the frequencies 12 notes of the octave 


2| * starting with middle C. Multiply by two to go up an octave, 
3] * divide by two to go down. This is an equal-tempered scale 
4| * so each note is derrived by miltiplying the previous note 
5| * by the twelfth root of two. Note that there's a little 
6| * round-off error here but this error isn't audible. 
ef 
8 | | MetaWINDOW provides an expand- 
9| #define TWELFTH ROOT OF TWO 1.059463095 | ed set of graphic drawing functions, 
10| ; F | plus the added functionality and 
- | ee: ine I : ae . on : : a : | performance required for designing 
erine HARP ° & gots ; , 
13| #define D4 (293.6648) y% D4 x / multi-window desktop applications. 
14| #define D4 SHARP (SIT. i127) {* D# 4 =/ : : 
15| #define E4 (329.6276) /* Boe MY * auto-cursor tracking 
16| #define F4 (349.2282) "hs F 4 “/} ¢ pull-down menus 
17| #define F4 SHARP (369.9944) ee FH 4 “7 = 
18| #define G4 (391.9954) /* G 4 RY. 4 * pop-up windows 
19| #define G4 SHARP (415.3047) /* G# 4 ge oe h 
20| #define A4 (440.0000) /* ha x / |“ comprenensive 
21| #define A4 SHARP (466.1638) /* A$ 4 */ graphic functions 
22 | #define B4 (493 -8833) /* | */ 1. multiple fonts 10 Pont 12 Point 
End Listing Three 
Listing Four : 
1| #include <stdio.h> 2 ey a ania et 
2| #include <tools/hardware.h> e filled-outline fonts. ; 
3| 4° Face fonts for bold, italic, under- 
4| beep( freq, duration ) _|__ line or strike-out stylings. 
5| double freq; _| ¢ Full "RasterOp" transfer 
6| double duration; | functions for writing, erasing, 
and | rubberbanding or dragging: 
8 | /* Beep the bell on the IBM-PC for the indicated time lines, text, icons, bit images 
9 | * (which may be fractional) at the indicated frequency. and complex objects. 
10| * Frequencies for various notes in an equal-tempered Penis Goon menue 
Li] * scale are in <tools/notes.h>. 2 ee Q 
12) x/ windows and icons. 
13] j ¢ Supports IBM's new PS/2 VGA 
14| SETFRQ( freq ); and MCGA graphics. 
16| SPKR_ON(); 
17| 
18 | delay( (double)duration ); 
L$) 
20| SPKR_OFF () ; 
Zati 2 
22 | 
23| | eee rr rere x} 


24| #ifdef MAIN 
25| #include <tools/notes.h> 
26| 
27| main( argc , argv ) 
28| char e*argv; 
eet 4 
30| double atof(); 
Se 
32| # if 0 
33 | neent 6° * 4; atof(argv[1]) ); 
34| # endif 
35 | 
(continued on next page) 





CIRCLE 392 ON READER SERVICE CARD 
Dr. Dobb’s Journal, September 1987 83 





The 
Turbo Pascal 


Toolbook 


Edited by 
Namir Clement Shammas 


Mi“ your 
programming 


easier and more 
powerful with the 
Turbo Pascal Toolbook! 


You'll find: 
e an extensive library 
of low-level routines 
¢ external sorting and searching 
tools, presenting a new database routine that 
combines the best features of the B-tree, 
B+ and B++ trees 
window management, to help you create, sort 
and overlay windows 
artificial intelligence techniques 
mathematical expression parsers, offering two 
routines that convert mathematical expres- 
sions into RPN tokens 
© a smart statistical regression model that 
searches for the best regression model to 
represent a given set of data. 





All routine libraries and sample programs are 
on disk for MS-DOS systems, and over 800K of 
Turbo Pascal source code is included! 


Turbo Pascal 


Toolbook Item #25-9 $25.95 
Turbo Pascal Toolbook 
with disk Item #61-5 $45.95 


TO ORDER: Return this coupon with your payment 
to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
8a.m.-5p.m. In CA call 800-356-2002 


YES! Please send me the Turbo Pascal 
Toolbook for only $25.95 


Send me the Toolbook, along with the 
disk for only $45.95 


Subtotal 





CA residents add sales tax ss 





Add $2.25 per item for shipping _ 


TOTAL 





Name 





Address 





City 





State Zip 





|] Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L] VISA L) M/C L] AMEX 





Card No. 





Exp. Date 





Signature 





31348 


84 












Listing Four 


(Listing continued, text begins on page 106. ) 
36| beep( C, 093533 
37] beep( D, O27} 
38 | beep( E, 0.5 }3 
39} beep( F , 0.5 ); 
40| beep( G, O45} 
41 | beep( A, O.3°)3 
42| beep( B, O.o Fs 
43] been. * 25.0.5 33 
44| } 
45| #endif End Listing Four 
Listing Five 
1| #include <tools/hardware.h> 
2| #include <dos.h> 
3 | 
4| delay( duration ) 
5| double duration; 
6| { 
7T| /* Delay for the indicated number of seconds (may be 
8 | * fractional. 
9] af 
10| 
11| unsigned long start, elapsed ; 
LZ] 
13 | unsigned long i, t; 
14| 
15 | elapsed = TIMR TICKS( duration ); 
16| 
17] for( start = ticks(); ticks() - start < elapsed ;) 
18 | ; 
19| 4 
20| 
Zit ticks} 
ek 
23 | /* Return the number of BIOS clock ticks since midnight. 
24 | * The routine rolls over succesfully at midnight (1573040 
ee * is the number of clock ticks in a day and AL is zero 
26| * if the timer has not passed midnight since the last 
27| % Cae}, 
28 | */ 
29| 
30| union REGS regs; 
or 
324 regs.h.ah = 0; 
33 | 
34 | int86( Oxla, &regs, &regs ); /* Time-of-day interrupt */ 
35 | 
36 | return (- regs.h.al-?°1573046L =: 0-4 
aT °(  Peqs.xscx -<< 16 
38 | + regs.x.dx 
394 ; 
40| } 
41| 


42| #ifdef MAIN 
43| main () 


44| { 

45| printf ("Should be five seconds between beeps\n\007") ; 
46| delay( 5.0 ); 

47| PECL (*\0G7"3 = 

48| } 

49| #endif End Listing Five 
Listing Six 

1| PAGE 96,132 

2 | TITLE SPEEDUP.ASM: System-clock-modification routines 

3| j----- 3-3 --------- -- --- -- -- -- --- -- -- --- -- -- --- ----------- 


4| DEBUG equ 1 ; Set to 1 to make internal symbols public 
QD | form o rrr nnn en = - + - + - -- -- --- = - -- --- -- = --- +++ 


6 | 
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7| 
8 | 

9 | 
10| 
ree 
12| 
13} 
14| 
i 
16| 
17| 
18| 
13+ 
20 | 
21| 
22 
Z2| 
24| 
25 | 
26| 
27 | 
28 | 
29 | 
30 | 
31| 
32 | 
33 | 
34| 
a 
36 | 
37] 
38 | 
394 
40| 
41| 
42| 
43| 
44| 
45| 
46| 
47| 
48 | 
49| 
50 | 
S1| 
52 | 
53 | 
54 | 
oe 
56 | 
37 
58 | 
59 | 
60 | 
61) 
62 | 
63 | 
64 | 
65 | 
66 | 
67 | 
68 | 
69 | 
70| 
71 | 
72) 
73 | 
74 | 
75 | 
76 | 
TE| 
78 | 
79 | 


_TEXT SEGMENT BYTE PUBL 

_TEXT ENDS 

_DATA SEGMENT WORD PUBL 

_DATA ENDS 

CONST SEGMENT WORD PUBL 

CONST ENDS 

_BSS SEGMENT WORD PUBL 

_BSS ENDS 

DGROUP GROUP CONST, B 
ASSUME CS: _TEXT, 

EXTRN __chkstk:NEAR 

TIMR CTRL = 43H ; 

TIMR_O DATA = 40H ; 

TIMR 0 LOAD = 36H ; 

_TEXT SEGMENT 


IC ‘CODE' 
IC ‘DATA’ 
IC ‘CONST’ 
i" 8Ss* 


SS, °°. DARA 
DS: DGROUP, SS: DGROUP, ES: DGROUP 


address of timer control port 
address of counter 0 data port 


control word for timer 


; Misc. variables. Note that I'm putting all these in the 

; code ( TEXT) segment so that I can find them when an 

; interrupt comes along. The PUBLIC statements are just for 
; debugging. 


old int 
old off 


old seg 


service 


old ds 


equ §$ 

dw ? ; 
dw ? ; 
dw ? ; 
dw z ; 


tick reset dw 
numticks dw ? s 


stack 


=e Se Se 


dw 64 dup (0) 


stack end dw ? 


old off, 


Offset of old timer interrupt 
service routine. 
Segment address of same. 


User-supplied interrupt service 
routine (offset). 


segments for running program. 


Initialized to tick_reset, decre- 
mented on each timer interrupt, 
reset to the speedup factor (and the 
old service routine is called) when 
it reaches zero. 


; Local stack for service routine 

; 18 bytes are used by real service 
routine, the rest is available 

; for the user service routine. 


=e 


old seg, old_ds 


tick reset, numticks, serv 


old_sp dw 
old_ss dw 
IF DEBUG 
PUBLIC old int, 
PUBLIC service, 
ENDIF 
sti(); Disable 


woe at) .s 
PUBLIC 


oki 


eli 


sti 


sti 


‘well, ._ Sel 


PROC NEAR 
eli 

ret 

ENDP 


PROC NEAR 
sti 

ret 

ENDP 
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and enable interrupts. 


(continued on next page) 





db PASCAL $29.95 


+ SHIPPING 


Read, write and create dBase III and 
compatible data files from Turbo Pascal 
programs. Allows dBase reporting with turbo 
speed and power. Accesses dBase fields using 
dBase field names. 


db DOS $39.95 


+ SHIPPING 


Read and write dBase III and compatible data 


files from the DOS prompt. Allows fast, full 
screen data file editing and will query all 
directory files for dBase compatibility and 


much more. 
Chandler, Arizona 


OGIC Al 85224-1267 


Phone orders 1-800-433-6854 accept Visa/ 
Mastercard. For information call (602) 
435-2370. Shipped by ground worldwide for 
$2.50 on receipt of funds. COD extra. 
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NEW! TLIB™ 4.0 
SOURCE CODE CONTROL 


The best keeps getting better! 


e Ver. 3 reviewed in Sept 87 PC Tech Journal! 

e The fastest, most powerful system is now even faster! 

e Many new features! Keyword support - inserts date, version, 
history, etc. into source code. Extended wildcard and list- 
of-file ee can create lists by scanning source code for 
includes. Branching support, for multiple development lines. 
Can merge (reconcile) multiple simultaneous changes. 

e Keep all versions of a source code file in one compact library. 
Synchronized control of multiple related source files. 

e LAN-compatible! Share libraries with all popular networks. 
Check-in/out locking for multi-programmer projects. 

e Designed for the future! \deal for use with WORM 
optical disks, like the new IBM 3363, since libraries are 
appended, not replaced, when you add new versions. 

e Includes a copy of Landon Dyer’s excellent public domain 
MAKE utility (with source code for DOS & VAX/VMS). 


e Plus: File compare utility. Virtually unlimited source file 
size. Date, comments with each version. Configurable 
user interface, and many configurable options, like: read- 
only libraries, automatic tab/blank conversion, more. 


PC/MS-DOS 2.x &3.x Just $99.95 + $3 s/h Visa/MC 
BURTON SYSTEMS SOFTWARE 
P. O. Box 4156, Cary, NC 27519-4156 
(919) 469-3068 


PO. Box 1267 
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function libraries 

felis toggle) [16] 

dhl lll 

text editors 

text filters 

SEE PRET support 
text formatters 


interpreters 


Users’ Group 
Library 


bulletin boards 





co-routines 
compiler compilers 


= "4 . 
Pte lelnm ersten c te) A Directory 
of Public Domain 


C Source Code 


assemblers 
games 
tutorials 

math packages 
link editors 


languages 


cross compilers 


pre-processors 

function libraries 
disassemblers PO Box 97 67460 
compilers 


i ea -1e | (ele 
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TURBO 
Advantage 
Display: 


Form Generator 
for Turbo Pascal 








ow, even if you have little programming 
knowledge, you can design and process 
forms to fit your needs! 


TURBO Display includes a menu driven form 
processor, 30 Turbo Pascal procedures and func- 
tions to facilitate linking created forms to your 
program, and full source code and documenta- 
tion. For MS-DOS systems. 


Some of the TURBO Advantage: Source Code 


Libraries for Turbo Pascal routines are 


necessary to compile TURBO Display. You save 
$20 when you order TURBO Advantage: Source 
Code Libraries for Turbo Pascal together with 
TURBO Display: Form Generator for Turbo 
Pascal! Receive both for only $99.95! 


TURBO Display: Form Generator for Turbo 
Pascal is also available individually for $69.95. 


TURBO Advantage/ 
Display Package 
TURBO Display 


Item #070B $99.95 
Item #28-3 $69.95 


TO ORDER: Return this coupon with your payment 
to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
8a.m.-5p.m. In CA call 800-356-2002 


YES! Please send me the Turbo Advantage/ 
Display Package for only $99.95 


Send me Turbo Display: Form 
Generator for Turbo Pascal for $69.95 





Subtotal 





CA residents add sales tax ss % 





Add $2.25 per item for shipping 





TOTALS Se 
Name 
Address 
City 


Slates ee ee saa. 
LJ Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L) VISA LJ M/C () AMEX 


Card No. 
Exp. Date 


Signature 


3131B 
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Listing Six 


80 | 
81} 
82 | 
83 | 
84 | 
85 | 
86 | 
87 | 
88 | 
89 | 
90 | 
91] 
92 | 
93 | 
94 | 
95 | 
96| 
97 | 
98 | 
99 | 
100] 
101] 
102| 
103 | 
104 | 
105 | 
106| 
107 | 
108 | 
109] 
110| 
111| 
Li: 
LES | 
114 | 
1145] 
116| 
EET | 
118 | 
Lio; 
120| 
121| 
$22] 
123] 
124 | 
125 | 
126| 
127| 
128 | 
129| 
130 | 
13L} 
32 
1331 
134 | 
i3>{ 
136| 
137| 
138 | 
139] 
140| 
141| 
142| 
143 | 
144 | 
145| 
146| 
147| 
148 | 
149] 
150 | 
ist} 









(Listing continued, text begins on page 106. ) 


; speedup( factor, routine ) 
: int factor, (*routine) (); 


+ Speed up the system clock by the indicated factor. 
; Call the indicated subroutine on every timer interrupt. 
; and call the default clock routine as well every "factor" 


s. “P2eks . 


; Offsets to arguments: 


: factor = [bpt4] 
; routine = [bpt6] 
PUBLIC _ speedup 
_ speedup PROC NEAR 
push bp 
mov bp, sp 
xOr ax,ax 
call __chkstk 
mov ax, [bp+6] 
mov _ TEXT: service, ax 
mov _TEXT:old _ds,ds 
mov ax, [bp+4] 
mov _TEXT:tick reset, ax 
mov _TEXT:numticks, ax 
mov al,TIMR_O LOAD 
out TIMR_CTRL, al 
mov ax, [bp+4] 
cmp ax,01H 
jne do _ div 
mov ax,0 
jmp load 
do div: 
mov ax,00000H 
mov dx,00001H 
mov bx, [bp+4] 
div bx 
load: 
out TIMR_0O DATA, al 
mov al,ah 
out TIMR_O DATA, al 
mov ah, 35H 
mov al, 08H 
int 21H 
mov _TEXT:old off, bx 
mov _TEXT:old_seg,es 
mov ah, 25H 
mov al, 08H 
mov dx,OFFSET TEXT: serv ; 
push ds 
push cs 
pop ds 
int 21H 
pop ds 
mov sp, bp 
pop bp 
ret 
_ speedup ENDP 


=e Be =e 


=e Se Se Be Be 


¢ 
° 
’ 


° 
¢ 


ee ye ee ee ee ee ee ee YT 


Se Se Be Be Ne 


service = offset of new 
routine. 

remember current DS too. 
tick reset = numticks 


= ax = factor 


Set up timer for load 


if (factor ==:1 .) 
{ 
use 0 for the ouput count 
} 
else 
{ 
Number of ticks = 


65536/factor 
BX = factor. 
AX = number of ticks 


} 


; Send new count to timer 


Get the old vector 


; set up the new vector 


+ Actual interrupt service routine. This routine saves the 
+ environment, calles the user-supplied C service routine, 
7 and then calls the default service routine if necessary. 
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I PROMPT DELIVERY!!! 


& SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for JULY 19, 1987 


152] ; The service routine runs under its own stack so stack hedidconehatbead eriulinedhie iS eater aia 
DYNAMIC RAM 


153] ; checking should be disabled with either the /Gs command- 








Ned : a ys 5 ee 1Mbit 1000kKx1 100ns 
a line switch or the "#pragma check _stack[+|-]" directive. CM 4 Mbit o56Kx4 120 ns 
133/ ; em 51258 = *256Kx1 100ns 
156| serv PROC NEAR rem 4464 64Kx4 150 ns 
T37 | meme 41256 8 256Kx1 80ns 
158 | push ax ; Save AX on old stack or Feece ia fa ns 
159| e 2 256Kx1 ns ee 
mm 41256 256Kx1 150ns ae) 
160 | mov _TEXT:old_sp,sp ; Set up local Fal 4164 er 150 ns Ear 
161] mov TEXT:old ss,ss 3 stack eo EPROM ea 
ae — an 
163] pop ba : ao 27C256 32kx8 250ns BS 
164 | : oiteae: ‘deer tes benietad.'s <del 27256 32Kx8 250 ns mas 
— ee RAR cn eit Mareen eon Ee 27128 = t6kx8_ 250 ns 2 
165] en STATIC RAM Par) 
166| push bx ; Set up C environment: Pm 43256L-12 32kx8 120 ns ar 
167| push cx ; save everything (the 6264iP-15 skx8 150 ns So 
168 | push ax ; flags are saved as OPEN 67'2 DAYS, 7:30 am-10 pm: SHIP VIA FED-EX ON SAT. 
169| push bp ; part of the interrupt 
170| push si ; processing) . Sete | ase he Ge Bea Dion 
1743 push di ; img MICROPROCESSORS UNLIMITED, INC. 
172 | push ds ; met s10.50,2 hs| BEGGS, OK. 74421 *(918) 267-4961 
173| push es ; ne Elasiil Rnd a Naaee pr otats Sones ieee ae 
174| ; dis & Li04 or pemetane nent day Piety Onee SIA feet 
LTD mov ds, TEXT:old ds ; fix the data segment 
176| mov es, TEXT:old_ ds ; and extra segment CIRCLE 105 ON READER SERVICE CARD 
177 | 
178 | 21 c A | 
179] call word ptr TEXT:service ; Call C subroutine ross ssem ers 
180: on Universal Linker 
181| ; p rful Librari 
182 | pop es 7 restore everything owertul Librarian 
183 | pop ds ; but AX 
184 | pop di : PC/MS DOS, micro VAX, 
185 | pop si ; VAX VMS, VAX UNIX/ULTRIX 
186| pop bp ; 
187 | pop dx ; Targeting over 30 Microprocessors 
188 | pop Cx ; Version 2.1 is FAST 
189| pop be : Powerful Macros - 
. Absolute or Relocatable Code 
190| ae Compatible with all Assemblers 
191 | mov ss, TEXT:old_ss ; Restore original Conditional Assembly 
192 | mov sp, TEXT:old_ sp ; stack. $295 up for Complete Packages 
193 | ; 
194 | dec _TEXT:numticks ; if (--numticks > 0) Next Month 
195 | jle do_old_int Ne Microcontroller 
196| mov al,20h : send EOI Ccross compilers 
197 | out 20h, al ; 
198 | pop ax ; restore ax # ene oe 
° ; ansdale, S.A. 
i kaa & Enertec inc. tsenhone: 215-362-0966 
a piticetaaiiid. ; r ps telex: 4948709 ENERTEC 
00 ants ; 
202 | oe eer ax, TEXT:tick reset ; numticks 
- ee IR 
203 | mov _TEXT:numticks, ax Z = tick reset; CIRGLE 946. ON READER SER aman 
204 | pop ax ; restore ax 
205| jmp adword ptr TEXT:old int ; jmp to old vector bb’ 
206 | : Dr. Dobb's journal 
207| serv ENDP 
208 | 


Bho Fj ile aes suena aN aR leet Subscription 


210| 


211| PUBLIC _ slowdown Problems? 


“a2 | 

213| slowdown PROC NEAR 

a No Problem! 

Za | push bp 

216| mov bp, sp 

217] xOr ax,ax 

ne Fees A ae Give us a call and we'll 

220) mov ax, TEXT:old off ; See if the interrupts have straighten it out. Today. 

22i{ or ax,ax ; changed. ; 

222 | jz no_int z No, don't fix them then Outside California 

so | CALL TOLL FREE: 800-321-3333 
| 7 restore old timer interrupt ‘ : ; 

225) push ds ; Inside California 

226 | mov ah, 25H ; CALL: 619-485-6535 or 6536 


(continued on next page) 
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TURBO 
Advantage: 


Source Code Libraries 
for Turbo Pascal 








his library of more than 220 routines, com- 

plete with source code, sample programs 
and documentation will save you hours develop- 
ing and optimizing your programs! 


Routines are organized and documented under 
the following categories: bit manipulation, file 
management, MS-DOS support, sorting, string 
Operations, arithmetic calculations, data com- 
pression, differential equations, Fourier analysis 
and synthesis, matrices and vectors, statistics, 
and much more! All source code is included. 


A detailed manual includes a description of the 
routine, an explanation of the methods used, 
the calling sequence, and a simple example. For 
MS/PC-DOS systems. 


TURBO Advantage: Source Code Libraries 
for Turbo Pascal is also available with TURBO 
Advantage Complex: Complex Number 
Routines for Turbo Pascal and TURBO 
Advantage Display: Form Generator for 
Turbo Pascal. See pages and 


Turbo Advantage Item #26-7 $49.95 





TO ORDER: Return this coupon with your payment 
to: M&T Books, 501 Glaveston Dr., Redwood City, CA 
94063. Or, Call TOLL-FREE 800-533-4372 Mon-Fri 
8a.m.-5p.m. In CA call 800-356-2002 


YES! Please send me the Turbo Advantage: 
Source Code Libraries for Turbo 
Pascal for only $49.95 


Subtotal 





CA residents add sales tax % 





Add $2.25 per item for shipping 





TOTAL 
Name 
Address 


City 





SAMCC a aS a ne et n= A 
(_} Check Enclosed. Make payable to M&T Publishing. 
Please Charge my L) VISA L) M/C L) AMEX 


Card No. 





Exp. Date 





Signature 
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Listing Six = (Listing continued, text begins on page 106. ) 


227 | mov al,0O8H : 
228 | mov ds, TEXT:old seg ; 
229 | mov dx, TEXT:old off ; 
230| int 21H : 
231! pop ds : 
232 | 
233|-no.ants 
234| mov al,TIMR_0 LOAD ; Restore default system 
235 | out TIMR CTRL,al ; cleck tick rate 
236| mov al,0O 
237] out TIMR_O DATA,al 
238 | out TIMR_O DATA,al 
239] 
240 | mov sp, bp 
241| pop bp 
242 | ret 
243 | 
244| _slowdown ENDP 
245| 
246| TEXT ENDS 
247| END End Listing Six 
Listing Seven 
1| #include <stdio.h> 
2| #include <signal.h> 
3| #include <stdarg.h> 
4| #include <ctype.h> 
5| #include <tools/notes.h> /* Frequencies of notes */ 
6| #include <tools/hardware.h> /* TIMR CLK *} 
7| #include <tools/debug.h> /* D() macro x] 
8 | 
St *-CLICK.C A polyrhythmic metronome. Usage is described 
VO in the usage msg[], below. 
igt: 2 
TZ}. .* (c) 1987, Allen I. Holub. All rights reserved. 
13) *------------------ - - - - nn eee 
a 
15| 
16| extern double ceil ( double ); 
17| extern double floor( double ); 
18 | 
19| /*------- 9 9 a re ne 
20| * The compiler truncates floating point numbers when they're 
21| * converted to int. This macro rounds as it converts. 
Bee cae 
23 | 
24| #define ROUND(x) ((int) ( ((x) > 0.5) ? ceil ((double) (x)) \ 
25.| : floor( (double) (x)) )  ) 
26| 
27| | ®----- 3-9 - rr errr 
28| * TICKS(x) converts a metronome count to clock ticks. 
eo 
30| * With a speedup factor 4, a tick happens 72.84 times/second 
31! * (every .01373 seconds, more or less). A speedup factor of 
32| * 2 yields half this number: 36.42 times/sec, or an interrupt 
33| * every .02746 seconds). 
34| * 
35| * A metronome 60 is 1 Hz, 120 is 2 Hz, etc. 
eo. * 
37| * seconds == 60 / metronome_count 
38| * ticks in second == ( 60 / metronome_count ) * ONE_TICK 
ao1- = == ( (60 * ONE TICK) / metronome count ) 
40{ == */ 
41| 
42| #define FACTOR 16 /* Speedup factor */ 
43| #define DEFAULT TICK (TIMR_CLK / 65536.0) /* ticks / second */ 
44| #define ONE_TICK (DEFAULT TICK * FACTOR) 
45| 
46| #define TICKS (x) ROUND( (60.0 * ONE TICK) / (x) ) 
47] 
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48 | 
49| 
50 | 
1] 
22 | 
oe 
54| 
oo | 
36 | 
a7 | 
58 | 
ao'| 
60 | 
61} 
62 | 
63 | 
64 | 
65 | 
66 | 
67| 
68 | 
69| 
70 | 
71| 
72 | 
Tat 
74 | 
io 
76| 
77| 
78 | 
79| 
80 | 
81| 
82 | 
83 | 
84 | 
85 | 
86 | 
87 | 
88 | 
89 | 
90 | 
91| 
92 | 
93| 
94| 
SS 
96 | 
97 | 
98 | 
99 | 
100 | 
101| 
102 | 
103| 
104 | 
105 | 
106| 
107 | 
108 | 
109 | 
110| 
111] 
112| 
113 | 
114| 
iS} 
116| 
117| 
118 | 
119] 
120 | 


SFI a st corpo ey pei lrg hati Sai st hanes Cea Reta aaah a ocala x / 
#define min (a,b) ((a).-<< (5). fa) BP) 

#define max (a,b) (ta) => -b) > ?+-a) 3) 

#define MAX MEASURES 1280 /* Max # of measures/track */ 
#define NUM_TRACKS 4 /* Number of tracks sf 
#define WARNING (NUM TRACKS + 1) 

/* sce st im xian i TAS Ss is ess i i ils ea Ge aii psa nd es scarce set Tae it a ial ia chai a an: ea an aS a it la a ln at Sin x/ 
typedef unsigned char uchar; 


typedef unsigned int uint; 


typedef struct 


{ 
uchar num_ beats; /* # of beats remaining in measure */ 
uchar remainder; /* Number of ticks to get in synch */ 
uint cur_tick; /* Current tick for this beat */ 
uint ticks per beat ; /* # of clock ticks between beats */ 
uint metronome : 14 ; /* metronome count in this measure */ 
uint silent : 1 ; /* this measure is silent */ 
uint warning :1 ; /* warning tone at downbeat a 

} 

MEASURE; 

typedef MEASURE TRACK [ MAX MEASURES ]; 


TRACK Tape [ NUM_TRACKS is 
MEASURE *Measure [ NUM TRACKS ]; /* Current measure on */ 


/* each track of Tape.*/ 
int Lineno = 0; /* Input line number */ 
int Ring bell = 0; /* 0 if the bell shouldn't ring. 

* Set. to..1.for.track 1, 2-for track 
« 2, “etc. 
oa 
int Collision = 0 ; /* If two track collide, the track 
* number of the second one is 
* put here. 
ve 
int Downbeat = 1; /* Incremented by the interrupt 
* service routine on every 
* downbeat from track 0; 
ay 
int Done = 0; /* Set to 1 by interrupt service 
* routine when it gets to the 
* end of the tape. 
xy 
int Numticks = 0; /* For debugging, incremented on 
* every timer interrupt. 
v7 
/* ee ee ee ee ee ee ee ee ew wwe ee we we we we ww ww we we we wn ww ww we wr nr wr ww re x / 
char *Usage msg[] = 
{ 
"Usage: click [-d] inputfile”, 
" -d (for dull) don't use different notes for different", 
: tracks", 
"A polyrhythmic metronome. Four independent \"tracks\"*, 
"are supported, with rhythms specified as follows:", 
"track O: #4 @120 5/8, #6 @120 6/8, @120 4/4", 
"track 1: #4 6 , #6 @100 6/8", 


(continued on next page) 
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We supply tools for the most advanced 
systems programming language in 
widespread use: 


MODULA:2 


Our Products Include: 


* Repertoire®: 5 high-level subsystems and 
hundreds of low-level routines for M2. 
Includes fast screen design/display system 
for virtual, scrolling windows, plus 
menus, help, forms, etc. (MS Windows 
compatible; keeps frames on disk until 
display). Also includes text editor and 
DBMS with variable-length keyed 
records, garbage collection, damaged file 
recovery, named and nested fields. Full 
source code (over 600K) 
atid: 5350p. manual 65 sj. Sods oe $89 


* EmsStorage™: high-level storage module 
that detects and uses LIM Expanded 
Memory if present, or DOS memory if 
not; lets users conserve scarce DOS 
memory for other programs. Fast 
allocation & deallocation. Automatic 
garbage collection. Provides MS- 
Windows-like interface (lock/unlock 
functions) for porting programs 


to Windows and OS/2........... $49 


* Graphix: the authorized Modula-2 
interface to MetaWINDOW, the profes- 
sional graphics system PCTJ named 7/85 
Product of the Month; includes 
full MetaWINDOW package. ... | 49 


* ModBase: a B+Tree DBMS that usesa file 
format compatible with Ashton-Tate’s 
dBase III. Provides indexing and file 
manipulation routines for use 
independent of dBase; 4 billion records 
per file. 

Includes full source code.......... $89 


* Macro2: a macro preprocessor for 
Modula-2; provides inline expansion of 
functions, include files, conditional 
compilation, etc. 


Withe- fall somece: -.. iss eo heehee nad $89 
CRRECE-COUE ORI oa xis nt hn ee eee $49 


* Full source code for Make and Xref 
utilities; customize them to work exactly 
as you like. 


Pee. Go as Sa vk ha Ves ORE 589 


All available exclusively from PMI; dealer 
inquiries welcome. Full documentation for 
these and many other products available 
on free demo disks. 


\ VISA/MC 
[ Vin AMEX/COD/PO 
(503) 777-8844 


4536 SE 50th BIX: pmi 
Portland, OR 97206 CIS: 74706,262 
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TURBO 
Advantage 
Complex: 


Complex Number Routines 
for Turbo Pascal 





W orking with complex numbers is easy with 
the Turbo Pascal procedures and routines 
provided in TURBO Advantage Complex! 


TURBO Complex provides procedures for perform- 
ing all the arithmetic operations and necessary real 
functions with complex numbers. Each procedure 
is based on predefined constants and types. By 
using these declarations the size of arrays are easily 
adapted. Each type declaration is a record with 
both a real and imaginary part. Use these pro- 
cedures to build more sophisticated functions in 
your Own programs. 


TURBO Complex also demonstrates the usage of 
these procedures in routines for vector and matrix 
calculation with complex numbers and variables; 
simultaneous Fourier transforms; calculations of 
convolution and correlation functions; low-pass, 
high-pass, band- pass and band-rejection digital 
filters; and solving linear boundary-value 
problems. 


Source code and documentation is included. For 
MS-DOS systems. Some of the TURBO Complex 
routines are most effectively used with routines 
contained in TURBO Advantage. Receive both 
TURBO Advantage and TURBO Complex, together 
for only $115! You save $25! 


TURBO Complex: Complex Number Routines for 
Turbo Pascal is also available individually for 
$89.95. 


TURBO Advantage/ 
Complex Package 
TURBO Complex 


Item #070A $115 
Item #27-5 $89.95 


TO ORDER: Return this coupon with your payment to: M&T 
Books, 501 Glaveston Dr., Redwood City, CA 94063. Or, Call 
TOLL-FREE 800-533-4372 Mon-Fri 8a.m.-5p.m. In CA call 
800-356-2002 


YES! Please send me the Turbo Advantage/ 
Complex Package for only $115 


Send me Turbo Complex: Complex 
Number Routines for $89.95 


Subtotal 





CA residents add sales tax % 








Add $2.25 per item for shipping 
TOTAL 





Name 


Address 








City 





DIAG oe 


L] Check Enclosed. Make payable to M&T Publishing. 
Please Charge my LJ VISA LJ M/C () AMEX 


Card No. 
Exp. Date 





Signature 


313178 
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Listing Seven (Listing continued, text begins on page 106.) 


121] 
122 | 
123 | 
124 | 
125 | 
126| 
127 | 
128 | 
129| 
130 | 
131] 
132 | 
1331 
134 | 
1351 
136| 
137] 
138 | 
139] 
140 | 
141| 
142| 
143| 
144 | 
145 | 
146| 
147| 
148 | 
149 | 
150 | 
151| 
152 | 
133 
154 | 
4554 
156 | 
157] 
158 | 
1594 
160 | 
161| 
162 | 
163 | 
164| 
165 | 
166 | 
167 | 
168 | 
169 | 
170 | 
ea 
142] 
Lie] 
174 | 
175 | 
176 | 
177 
178 | 
L193} 
180} 
181| 
182 | 
183 | 
184 | 
185 | 
186| 
187 | 
188 | 
189| 
190| 
197} 
192| 
193 | 


"No line can be longer than 132 characters, but several", 
"track specifiers can be given. The basic notation is:", 
"\"(#N] [@Z] X[/Y],\" interpreted as N measures of X/Y at", 
"metronome Z. If the \"#N\" is missing, 1 is used. If", 
"the \"@Z\" is missing, the measure is stretched to", 
"synch with track one on the down beat. The \"/Y\" is", 
"optional. So, in the above example, the six beats in", 
"the first four measures of track 2 will synch up with", 
"track one, coming into synch on the downbeat of each", 
"measure. Each track may be up to 1000 measures long.", 
"Lines that don't begin with \"track\" are ignored", 
NULL 


char *skipwhite (p) 
char *p; 
{ 


/* Skip all characters that aren't part of a command */ 


while( *p && (isspace(*p) || *p == '\n') ) 
Ppt: 3 


return p; 


err( fmt ) 
char *fmt ; 
{ 
/* Works like printf() but writes to standard error and 
* prints an input line number along with the message. 


rs 


va_list args; 
va_start( args, fmt ); 


fprintf ( stderr, "line td: ", Lineno ); 
vfprintf( stderr, fmt, args ); 


/* Initialize The Measure array to point 
* at the first measure of each track on the Tape. 


xi 
register int i; 


fort i |= NUM TRACKS; --i >= 0; ) 
Measure[i] = Tape[i] ; 


print_tape( this many ) 
{ 
/* Print out the tape. If this many is 0, only the 
* initialized measures are printed; otherwise, the 
* indicated number of measures are printed 


*/ 

MEASURE Xp ; 

register int i, measure num ; , 
int amt ; 


for( i = 0; i < NUM TRACKS ; i++ ) 
{ 
printt ( “Track 4d: \n",:i js 
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194 | 
Le 
196| 
197 | 
198 | 
£99 | 
200| 
201] 
202 | 
203 | 
204 | 
205 | 
206| 
207| 
208 | 
209] 
210| 
erly 
212| 
213] 
214| 
215 | 
216| 
2.7 | 
218 | 
219] 
2201 
cei | 
222 | 
223 | 
224 | 
225 | 
226 | 
227| 
228 | 
229| 
230] 
231| 
232 | 
233] 
234 | 
235 | 
236| 
237| 
238 | 
239) 
240| 
241| 
242 | 
243 | 
244 | 
245 | 
246| 
247] 
248 | 
249| 
250 | 
251] 
252 | 
253] 
254 | 
255 | 
256 | 
257 | 
258 | 
a 
260 | 
261] 
262 | 
263 | 
264 | 
265 | 
266 | 
267 | 
268 | 


measure num = OQ; 


amt = this many; 
for( p=Tape[i]; p->num_beats>0 || --amt >= 0; p++) 
{ 

printét (* measure %2d: ", ++measure num ) 


printf ("(%2d ticks/beat " 


printf ("+ %d] 


printf ("cur tick=%d, " 
printf( "td beats " 


’ 


p->remainder ) 
p->cur tick ) 
) 


p->ticks per beat ); 
p->num_ beats ; 


~ » - ~ ~” 


if( p->metronome ) 
printf( "at %-5d ", p->metronome ); 


else 


printft( “in synch " ); 


printf ("%s", p->silent 


? u (mute) wu ° tou ) : 


printf ("%s", p->warning ? "(warn)" : "" ); 


printf ("\n") 3 


build tracks( file name ) 


char *file name; 

{ 
FILE *fp; 
MEASURE *mp; 
char buf(133], *line; 
int Lg 
int track; /* Track number © */ 
int num_ measures; /* # of measures to repeat */ 
int met ronome; /* metronome count */ 
int beats; /* beats per measure “7 
int ticks; /* ticks per measure i 
int measure; /* Current measure number */ 
int silent; /* measure is silent */ 
int warning; /* warning on last repeat */ 
if( ! (fp = fopen(file_name,"r")) ) 

return 0; 

init (); 


while( line = fgets(buf,133,fp) ) 


{ 


++Lineno; 


line = skipwhite( line ); 


Et If 


line [O)=='t' && line[1l]=='r' 


&& line[2]=='a' && line[3]=='c' 6& line[4]=='k' 


) 


) continue; 


line += 5; 


line = skipwhite 

track = stoi 

line = skipwhite 

if( *line == ',' 
linet++; 

mp = Measure 

measure = 


while( *line ) 

{ 
num measures 
met ronome 
silent 
warning 
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/* Get track number <«/ 


line ); 
( &line ); 
line ); 
|| *line == ':' ) 
{ track ]; /* starting measure # *«/ 


G.O .5e 
. 


mp - Tape [ track ]; 


Se 


.e Se 


=e 


(continued on next page) 





Dbasex 


programming tools 


*Clipper, FoxBASE+, 
dBASE, QuickSilver 


The Ul Programmer 


Ul is the first professional code generator; we 
wrote Ul for programmers who want to automate 
their work but cannot use code that is ‘almost’ 
good enough. If your user interfaces include 
bounce-bar menus, pop-up help screens and 
the other features of today’s best programs, you 
will gain an order of magnitude in productivity 
with Ul. 


Ul is a second generation, programmable pro- 
duct — so your code comes out your way. 
Application specific edits, for instance, can be 
placed in the UI ‘template’ which controls the 
generation. Edit the screen appearance until it 
‘looks and feels’ perfect. Everytime you generate 
code, your special logic is preserved. 


Speaking of editing the screen, Ul includes a 
powerful, 3-D screen editor, so you can draw 
pop-up help boxes over your pull-down menus, 
over your application. 


The Documentor 


To run Doc, you just tell it the name of the main- 
line routine and make sure your printer has a lot 
of paper! (Sure, you can have the output go to 
the screen or a file, too.) 


You can tailor your documentation to include any 
or all of: a table of contents, system tree diagram 
(main line is the root), hierarchy (box diagram) 
charts for each module, action diagrams (modern 
style flow charts) for each PRG or procedure, 
DBF listings (structure, indexes, more), where 
used/updated listings for fields and all variables 
— by module and by line number within each 
module. 


Our written money-back satisfaction guarantee 
set a new standard when we began it in 1985. 
(Return rate to date: 0.6% and dropping!) No 
copy protection, royalties or other nonsense. 


Suggested retail: $295 each, (800) support 
included. At your dealer today. Call us for a very 
special offer on our latest release! (800) 233- 
3569 or, in NY, (212) 406-7026. 


WallNott 


The Computer Aided Software 


Engineering Corporation 
233 Broadway, Suite 869, New York, NY 10279 
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Listing Seven (Listing continued, text begins on page 106. ) 


269] for( line=skipwhite(line); *line; line=skipwhite(line) ) 
270| { 

271 | if( *line == ';' ) /* comment */ 
272 | { 

aio *line = 0; 

274| break; 

275 | } 

276| else if( *line == ',' || *line == ':' ) 

etF { 

278 | ++line; /* end of measure */ 
279| break; 

280 | } 

281] if( *line == '#' ) /* # of measures */ 
282 | { 

283 | line = skipwhite ( ++line ); 

284 | num measures = stoi ( &line ); 

285 | } 

286 | else if( *line == '@' ) /* metronome count */ 
287 | { 

288 | line = skipwhite ( +tline ); 

289 | metronome = stoi ( &line ); 

290 | } 

291| else if( *line == 'w' || *line == 'W' ) 

2921 

293 | while( isalpha(*line ) ) 

294| ++line; 

295 | 

296] warning = 1; 

297 | } 

298 | else if( isdigit( *line ) ) /* Time signature */ 
299] { 

300 | if( (beats = stoi(&line)) == 0 ) 

301] { 

302 | err( "Illegal time signature\n" ); 

303 | exit (1); 

304 | } 

305 | 

306| £f£(- *lirie ==-'/*-) /* Throw away bottom */ 
307| ++line; /* of time signature. */ 
308 | 

309 | while( isdigit( *line ) ) 

310| line++; 

311 } 

312| else if( *line == '(' || *line == ')' ) 

313} { 

314 | ++ line ; 

315] silent = 1; 

316| } 

317} else 

318 | err("<%c> is illegal in measure spec.\n", *line ); 
319| } 

320| 

321| for(; --num_measures >= 0; mp++, measuret+ ) 

322 | { 

323 | if( metronome ) 

324 | { 

325 | mp->met ronome = metronome; 

326 | ticks = TICKS(metronome) * beats ; 

327 | } 

328 | else 

329 | { 

330} mp->metronome = 0; 

331. ticks = Tape[0] [measure] .ticks per beat 

332 | * Tape [0] [measure] .num_ beats 

333} : 

334 | } 

335| 

336] if( num_measures == 0 ) /* last in series */ 

337| mp->warning = warning; 

338 | 

339| mp->silent = silent ; 

340 | mp->num_beats = beats ; 

341| mp->cur_tick = ticks / beats; 
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342 | 
343 | 
344 | 
345 | 
346| 
347| 
348 | 
349| 
350| 
ISL] 
Jae | 
353] 
354 | 
359 | 
356 | 
ard 
358 | 
359) 
360 | 
361| 
362 | 
363 | 
364 | 
365 | 
366 | 
367 | 
368 | 
369 | 
370 | 
371| 
Shes 
3434 
374 | 
37154 
376| 
20 | 
378 | 
3T3 
380 | 
381| 
382 | 
383 | 
384 | 
385 | 
386 | 
387 | 
388 | 
389 | 
390 | 
oas4 
392 | 
393 | 
394 | 
3951 
396| 
397| 
398 | 
393 
400 | 
401] 
402 | 
403 | 
404 | 
405 | 
406| 
407 | 
408 | 
409| 
410| 
411| 
412| 
413| 
414| 
415| 
416| 


#pragma check stack- 


mp->ticks per beat = ticks / beats; 
mp->remainder = ticks % beats; 


D( printf ("loading track %d; -",. track 17) 
D( printf ("measure %d: " , measure 3) 
D( printf("%d beats/measure " , beats re) 
D( printf ("at metronome %d\n" , mp->metronome) ;) 


} 
Measure[ track ] = mp ; 


} 


imit-() 5 
D( print _tape( 0 ); ) 
return 1; 


/* Turn off stack probes. This pragma */ 
/* is Microsoft-compiler dependent. */ 


timer intr () 


{ 


/* Interrupt service routine for timer interrupt */ 


MEASURE **mp, *p ; 
int i, did_nothing ; 


Done = 1; 
++ Numticks; 


for( i= 0, mp = Measure; ++i <= NUM TRACKS ; mpt+ ) 
{ 
if( (p = *mp)->num_beats > 0 ) 
{ 
if( p->cur_tick==p->ticks per beat ) 
{ 
/* Ring bell on first tick of measure 
* unless this is a silent measure. 
* Warnings take precedence over 
* everything. 
ay, 


if( p->warning ) 

{ 
Ring_bell = WARNING ; 
p->warning = 0; 


} 


else if( !p->silent ) 
{ 
if( !Ring bell ) 
Ring_bell = i; 
else 
Collision = i; 


} 


if( == p->cur tick <=-0..) 
{ 
if( -- p->num beats <= 0 ) 
{ 
1f( i=1) 
++Downbeat; 


++( *mp ); /* go to next measure */ 


} 


else 


{ 
p->cur tick = p->ticks_per_ beat; 


if ( p->remainder > 0 ) 
{ (continued on next page) 
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(3 D GRAPHICS ANIMATION 


Now you can have a 3 D animating 
graphics system for your EGA or CGA 
equipped PC or PC compatible. 

(DOS 2.1 or higher.) 


1 Includes all source code (C and ASM) 


2 Hidden surface removal, translation, 
scaling and rotation 


3 Scripting for viewpoint and object 
movements 


4 Slideshow or animated playback of 
display frames 


5 Software interface to single frame 
camera 


6 ‘Fly through’ of scenes with moving 
objects 


7 Variable order spline curve generation 
for object and view point path 
generation 


8 Object description includes MACRO 
Capability 


9 Source code includes direct to hard- 
ware assembly routines for high 
speed display 


10 Control viewpoint path, acceleration, 
and velocity 


11 Control object path, velocity, and 
rotation 


GenView allows you to specify a viewpoint 
path with a small set of “turning points.” 
It will then generate a smoothed series of 
frame locations along the path according 
to the velocity and acceleration 
parameters you specify. View direction 
may be backwards, forwards, or user 
specified. Object movement is controlled 
through a similar process with the addi- 
tion of rotation (about any or all axes). 


CGA Animation Sequence Demo 
$7.00 

EGA Animation Sequence Demo 
$9.00 (2 diskettes) 

CGA Flythrough Sequence Demo 
$9.00 (Requires hard disk) 


GenView System $99.00 


The GenView System includes executable 
code, source, MAKE files, object descrip- 
tion library, and manual (more than 40 
pages) on diskette. 


No Purchase Orders. Massachusetts 
residents add 5% sales tax. 
Outside USA add $15.00. 
VISA and MASTERCARD accepted. 
Call 617-528-4280 to order or send check 
Or money order to: 
GenSoft Systems 
Dept. 9D 
PO. Box 1 
Foxborough, MA 02035 
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Listing Seven 


417| 
418 | 
419] 
420| 
421| 
422 | 
423] 
424| 
425 | 
426| 
427| 
428! 
429] 
430| 


431] 
432 | 
433 | 
434| 
435| 
436| 
437| 
438 | 
439] 
440| 
441| 
442| 
443 | 
444| 
445| 
446| 
447| 
448 | 
449| 
450| 
451] 
452] 
453] 
454| 
455| 
456| 
457] 
458 | 
459| 
460! 
461| 
462| 
463| 
464| 
465| 
466| 
467| 
468 | 
469| 
470| 
471] 
472| 
473| 
474| 
475 | 
476] 
477| 
478 | 
479] 
480] 
481] 
482 | 
483 | 
484 | 
485| 
486} 
487 | 
488} 
483 
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(Listing continued, text begins on page 106. ) 


-- p->remainder ; 
we her our fick 7 


Cae 


{ 
/* Routine for signal(), tries to put the clock rate 
* back to normal on a Ctrl-Break. Note that this 
* routine can fail if Ctrl-Break is hit several times 
* in quick succession. 


signal( SIGINT, SIG_IGN aS 
s lowdown (); 
exit (0); 


char **X D5 
for( p = Usage_msg; *p; fprintf(stderr,"%s\n", *ptt) ) 


exit (1); 


main( argc, argv ) 

char e RAP; 

{ 
static int measure = 
static int dull 
static int stats 
static. inti; 


O; /* current measure in track 0 */ 
0; /* Dull output ¥f 
0; /* Statistics ‘only Sf 


Il 


if( arge == 3 ) 
{ 


--arge; 


if( **(++targv) != '-' ) 
usage (); 


switch( argv[(0][1] ) 
{ 


case .*d'* -dukl w= I> break; 
default: usage (); 
} 
} 
else if( arge != 2 || *argv{1] == '-'" ) 
usage (); 


if( !build_tracks( argv{1] ) ) 
exit ( 2>)3 


1* (stats) 
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£90 | 
491 | 
492 | 
493 | 
494 | 
435 | 
496 | 
497 | 
498 | 
4$9| 
500 | 
501] 
502 | 


563 | 
504 | 
505 | 
506 | 
507 | 
508 | 
509| 
510 | 
SE] 
312| 
a h.3'| 
214} 
515] 
516] 
517 | 
518 | 
519] 
520 | 
os 
522 | 
523 | 
524 | 
det | 


print stats(}; 
exit (0); 
} 


signal( SIGINT, on_break ); 


for( speedup(FACTOR, timer intr); !Done; ) 
{ 


eli); /* Interrupts off */ 
if( Ring_beli == WARNING ) 
{ 
Collision = 0; 
Ring bell = QG; 
sti(); 
beep ( C4*8, 0.125 ); 
delay ( Oot )3 
beep ( C4*8, 0.125. ); 
} 
else if( Collision ) 
{ 
/* the higher track wins */ 
i = max( Collision, Ring bell ); 
Collision = 0; 
Ring bell = 0; 
sti(); 
beep (dull? C4*2 :.C4 * i,...0.125 }; 
} 
else if( Ring bell ) 
{ 


/* You must set Ring bell to 
* Q before calling beep so that 
* a note won't collide with itself. 


ay 
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Listing Seven _ (Listing continued, text begins on page 106. ) 





526 | 

527) i = Ring bell; 

528 | Ring bell = 0; 

329 | Stats? 

530 | beep( dull ? C4*2 : C4 * i, 0.125 ); 
531| } 

532 | else 

533'| { 

534 | sti(); 

535 | } 

536| 

S374 

538 | if ( Downbeat != measure ) 

539| printf( "\r%d", measure = Downbeat ); 
540 | } 

541 | 

542 | orintlt."\rDene™: ):; 

543 | 

544| D( printf("$d ticks overall\n", Numticks ); ) 
545 | slowdown (); 

546| printf ("\n") 3 

547| } 


End Listings 
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F | CANADA’S 

| INTERACTIVE ASSEMBLY AND FORTH DEVELOPMENT SYSTEM SOURCE FOR C 

FOR 68000/68020/68881 PROCESSORS 

_ | - Canadian Sales 

: - Canadian Service 

: - Canadian Technical Support 

- Canadian Product Knowledge 


We specialize in programming & development software 


: LIFEBOAT « LATTICE e GREENLEAF « PHOENIX 
SOFTCRAFT « MICROSOFT « BLAISE « ESSENTIAL 
AGE OF REASON - DESMET « AZTEC 
MARK WILLIAMS « GIMPEL * ROUNDHILL « GSS 
HALO « FAIRCOM « RAIMA « INTEL « etc. « etc. « 


PO 





Sith 


Mach2 for Industrial OS-9/68000 
a a Call for full price list Dealer enquires welcome 
Full OS-9 modular programming support. : pe 


Easy generation of program and trap modules. 





We know our products—we use them! 





ee ee es 


Standard infix 68000/68020/68881 assembler. 
Fast subroutine-threaded Forth 83implementation. SCANTEL SYSTEMS LTD. 
For more information, Palo AltoShipping Company 801 York Mills Rd., Don Mills, Ont., M3B 1X7 
call or write today: P.O. Box 7430 « Menlo Park,CA 94026 (416) 449-9252 
(416) 854-7994 » (800) 44FORTH 
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} 


649 Mission Street 
San Francisco, CA 94105 


The Software Family 


(1)800-443-7176 
In California or outside U.S. 


(415)583-4166 


Trust TSF to provide the 
best value and service! 


* Technical advice and support by 
programmers 


* Honest and equitable business practices 


« Prompt, flexible service to meet your 
needs 


We accept checks, Visa, MasterCard, American Ex- 
press and COD. We charge your card only when 
we ship and do not add a surcharge. We provide 
free UPS delivery on software orders over $100 ($3 
delivery charge on orders under $100). We add ac- 
tual charges for UPS Blue Label or Federal Ex- 
press rush service. Our COD fee is $2. We allow 
return privileges on most products. We carry a 
large inventory and ship promptly, so you receive 
your shipment within 3 to 6 working days of plac- 
ing your order. Give us a try. 


Turbo C Specials 


Borland Turbo C (list $99) ........cscsssssssseseees $59 


Blaise Turbo C Tools (list $129)..............0. $95 


ISR/TSR support, critical error trapping, direct video 
access, more 


Creative Vitamin C (list $225) ............000 $150 
Windows, menus and data entry with source 
Ginpel PC Lint (list $139)... acne ca $95 


Checks all modules of a C program to warn if func- 
tion calls do not include the proper number and types 
of parameters, if global variables are declared incon- 
sistently or if you have used common C "gotchas" 


Metagraphics Turbo Window/C ($95)........ $75 
Graphics windows, menus and multiple fonts 
Softfocus Btree & ISAM (list $115) ........... $99 


Complete multi-key ISAM file system with source 


Prices good until October 15, 1987 


Basic & 


Turbo Pascal dBase 
Publishing X 





Aldebaran Source Print (list $75) ........ccscsccsescseeees $59 
Blaise C Tools + CUBtS17S): ...0ccicciseccsceoctseecossieccead $125 
Blaise Light Tools For Datalight (list $100)................ $79 
Blaise Turbo Power Tools + (list $99)... eee $79 
Borland Turbo Basic (list $99) ............csssssssesescesseeees $61 
Borland Turbo C Uist S99): cccccsscieccivcecassvsgacscovetondives $59 


Bytel Genifer dbase III application generator ($395) .... $225 
Comtel dbScope Interactive dBase debugger ($70)........ $62 


Comntel Gi Taoks 41SEC S70)... <cchcasicscossosyrassantosnscsssnnss $62 
Creative Vitamin C Specify compiler (list $225)......... $150 
Creative Programming VC Screen (list $100)............ $79 
Datalight Optimum C w/Easy Edit (list $140)............ $99 
Fox FoxBase + fast dBase compiler ($395)..........s0000 $249 
Gimpel C-Terp Specify compiler (list $300) ............04 $224 
Gimpel PC-Lint. (list $139) soisic.ccaisses.ecssasziencessontenctoes $95 
Greenleaf Data Windows Specify compiler ($225) .... $157 
Guidelines C + + for Microsoft C (list $195)............ $175 
Lattice C-Cist Sh00) cna ceoaar $270 
Matrix Synergy Development Toolkit (list $395) ..$309 
MicroHelp Mach2 for Microsoft Basic ($69).......... $55 
windows, fast i/o, critical error trapping, more 
MicroHelp Mach2 for Turbo Basic ($69)................. $55 
MicroHelp Mach2 for Turbo Pascal ($69)................ $55 
Microsoft C v5 w/Codeview & Quick C (list $450) ......$279 
Microsoft Quick C (list $99)......... Peaih coheed ahr $68 
Microsoft Fortran w/Codeview (list $450) .............000 $270 
Microsoft Quick Basic v3 (list $99) 0.0... esessseseeeeees $65 
MKS Toolkit Korn shell, vi, grep, 30 more ($139)........ $109 
Periscope Periscope I (list $345) ........ssesssssecseseeeees $279 
Periscope Periscope II (list $175)........ssssssssscscseeees $139 
Periscope Periscope III (list $995) .........cssssssssseeeeees $799 
Periscope Periscope III 10Mhz (list $1095)........... $876 
Phoenix PFix-86 + (list $395) ......:..scecsssssescesocseoosbaes $250 
Phoenix Plink-86 + (list $495) wo. eeseeeseeeeseeeees $315 
Tom Rettig Library (Uist $99) ..........ccsscscssssssseaverersases $87 
Turbo Power Extender (list $85) .........cssssssssecsceeeeees $68 
Turbo Power Optimizer (list $75) .........ssssessssseseeeeees $59 
Turbo Power Optimizer w/Source (list $175) ............ $99 
Turbo Power TDebug Plus v2 (list $60) ............es00e $48 
Turbo Power Turbo Utilities w/source ($95)..........00. $76 
Unipress Phact RDBMS w/ report & query ($249)...... $199 
Wallsoft UI Programmer (list $295)... $260 


Wordtech dBXL dBase III work-alike (list $169) ........ $110 


TSF carries hundreds of products 
from dozens of publishers. Call 
or write for a FREE catalog ora 

price quote. 
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Off-the-shelf and custom systems for: 











* Multi-User Teleconferencing 
* Multi-User Electronic Mail 
* Multi-User File Upload/ Download 
* Multi-User Order Entry 

* Multi-User Games and Amusements 
* Multi-User Database Lookup 

* Multi-User Online Expert Systems 
* Multi-User Catalog Scanning 

* Multi-User Classified Advertising 

* Multi-User Educational Services 
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What do vou need for your Multi-User 
Bulletin Board System? 


[Runs under MS-DOS V3.1 |¥E 


We sell hardware and software for the 
IBM PC family and compatibles. Our 
product line is centered around the 
GALACTICOMM BREAKTHROUGH, a 
single-slot card with 16 independent 
modems on it. You will simply have a cable 
coming out the back of your machine, 
going straight into the jacks in the wall 
installed by the telephone company. No 
external hardware needed. 
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Call our multi-user demo system with your 
modem, at (305) 922-3901. Then call (305) 
472-9560, voice, for more information. 
Why not call right now? 


*) GALACTICOMM 


GALACTICOMM, Inc., 11360 Tara Drive, Plantation, FL 33325 
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STRUCTURED PROGRAMMING 





Listing One (Text begins on page 122.) 


PROGRAM CBTree; 


Program to test the compare the time needed in creating and 
searching a binary tree and a CB-tree. 


Author: Namir Clement Shammas 


CONST SIZE = 1000; 
RANGE = 10000; 
MainLoopCount = 100; 


TYPE Bin Ptr = “Bin Node; 


{ normal binary tree strcutures } 


Bin Node = RECORD 
Value : INTEGER; 
Left, Right 
END; 


CB Ptr = “CB Node; 


; Bin Ptr; 


{ Record structure for clustured binary tree } 


CB Node = RECORD 
Value : INTEGER; 
HLeft, HRight, 


Lleft, LRight : CB Ptr; 
END; 
REGTYPE = RECORD 
AX, BX, CX, DX, BP, 
DI,SI,DS,ED,FLAGS : INTEGER 


END; 


Time Rec = RECORD 


HOUR, MIN, SEC, HSEC : BYTE 


END; 


VAR Numbers : ARRAY [1..SIZE] OF INTEGER; 


iter, I, Choice, CDV, : Diff: 
BinTreeRoot : Bin Ptr; 
CBTreeRoot : CB Ptr; 


INTEGER ; 


Timer Start, Timer Stop, Time Elapsed : Time Rec; 


PROCEDURE Get Time(VAR TIME : Time Rec { output }); 


VAR REGISTER : REGTYPE; 
AH : BYTE: 
BEGIN 
AH = := ~ 826 


WITH REGISTER, TIME DO BEGIN 
AX<:= AH SHL 8; 
MSDOS (REGISTER) ; 


HOUR := Hi(CX); 

MIN: *=<- Lotes} - 

SEC .-¢=..5Hi (DX)z 

HSEC := ‘Lo (DX); 
END; 


PROCEDURE Time Diff(T Start, 
T Finish 


VAR Delta Time 


{ input } 
{ output }); 


: Time Rec; 
: Time Rec 
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BEGIN 


WITH Delta Time DO BEGIN 
HOUR := T Finish.HOUR - T Start.HOUR; 


IF T Start.MIN > T Finish.MIN THEN BEGIN 
HOUR := HOUR - 1; 
T Finish.MIN := T Finish.MIN + 60; 
END; 
MIN := T Finish.MIN - T Start .MIN; 


IF T Start.SEC > T Finish.SEC THEN BEGIN 
MIN := MIN - 1; 
T Finish.SEC := T Finish.SEC + 60; 
END; 3 
SEC := T Finish.SEC - T Start .SEC; 


IF T Start.HSEC > T Finish.HSEC THEN BEGIN 
SEC s= SEC.- 1; — 
T Finish.HSEC := T Finish.HSEC + 100; 
END; “ 
HSEC := T Finish.HSEC - T Start .HSEC; 


END; (* WITH *) 


END; (* Time Diff *) 


PROCEDURE Show Time(T : Time Rec { input }); 
BEGIN 
WITH T DO BEGIN 
WRITE ('Time elapsed = ',HOUR,' 
END; 
END; (* Show Time *) 


4, MEN, 3) *, SEC, * 5° ,BSECI? 


PROCEDURE Create (Choice : INTEGER { input }); 


VAR J : INTEGER; 
Angle, FloatSize, Increment : REAL; 


BEGIN 
CASE Choice OF 
1 : BEGIN 
Angle := 0.0; 
Increment := Pi / 360.0; 
FOR J := 1 TO SIZE DO BEGIN 
Numbers[J] := Trunc(SIN(Angle) * RANGE) ; 
Angle := Angle + Increment; 
END; 
END; 
2 : BEGIN 
Angle := 0.0; 
Increment := Pi / 360.0; 
FOR J := 1 TO SIZE DO BEGIN 
Numbers[J] := Trunc(COS(Angle) * RANGE) ; 
Angle := Angle + Increment; 
END; 
END; 
ELSE BEGIN 
Numbers[1] := RANGE div 2; 
FOR J := 2 TO SIZE DO 
Numbers[J] := Trunc(Random * RANGE) ; 
END; 
END; { CASE } 
END; 


(continued on next page) 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


ME isa high quality programmer’s text 
editor written specifically for the IBM 
PC. It contains features only found in 
the more expensive programmer’s text 
editors.These features include: 


= Multiple Windows 
= Column cut and paste 
= Line marking for source code 
=» Regular Expressions 
as C-like Macro Language 
= Reconfigurable Keyboard 
=» Capture your DOS session 
= Run your compiler and examine 
errors 
= Comes with useful precompiled 
macros 
a UNIX-like CTAGS 
s 43-line mode with EGA 




































This is the ONLY editor with the power 
of the higher priced editors which 
comes with complete source code! 







New commands and features may be 
added to the editor by writing programs 
in its macro language. The language 
resembles C, and comes with a rich set 
of primitives for handling strings and 
changing the editor environment, plus 
most of the flow-of-control constructs 
that come in C (for, while, if, break, con- 
tinue). 











The code is written in standard C, with 
several key library routines written in 
assembler for speed. The source code 
option is perfect for OEMs and VARs 
who want to add editing or word proc- 
essing capabilities to their applications. 
Price for editor and on-line docu- 
mentation ---- $39.95 

Price for editor with complete source 
code -- $94.95 

(Please add $2 for shipping & han- 
dling, $6 overseas) 

Special offer -- New York Word word 
processor -- $39.95 -- Multi-window- 
ing, mail merge, hyphenation, math, 
regular expressions, TOC and index 









138-23 Hoover Ave. ica, 
11435 (201) 792 - 3954 
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PROCEDURE Bin Insert (VAR Root 
Item:': INTEGER { input }); 

(* Insert element in binary-tree *) 

BEGIN 


Bin Ptr; { input } 


IF Root = NIL THEN BEGIN 
NEW (Root) ; 
Root®.Value := Item; 
Root’ .Left := NIL; 
Root®.Right := NIL 
END 
ELSE 
WITH Root* DO 
IF Item < Value THEN Bin Insert (Left, Item) 
ELSE Bin Insert (Right, Item) ; 


PROCEDURE Bin _Search(VAR Root : Bin Ptr; { input } 

Target : INTEGER { input }); 
(* Recursive procedure to search for Target value *) 
BEGIN 


IF Root <> NIL THEN 
IF Target <> Root*.Value THEN 

IF Target < Root®*.Value THEN BEGIN 
Root := Root*.Left; 
Bin Search (Root, Target) 

END 

ELSE BEGIN 
Root := Root’.Right; 
Bin Search (Root, Target) 

END; 


PROCEDURE CB Insert (VAR Root : CB Ptr; { input } 
VAR Item : INTEGER { input }); 
(* Insert element in a CB-tree *) 


BEGIN 
IF Root = NIL THEN BEGIN 
NEW (Root) ; 
Root*.Value := Item; 
Root’ .LLeft := NIL; 
Root* .LRight := NIL; 
Root”.HLeft := NIL; 
Root*.HRight := NIL; 
END 
ELSE 
WITH Root* DO BEGIN 
Diff := Value - Item; 
IF Diff > O THEN 
IF ABS(Diff) <= CDV THEN CB Insert (LLeft, Item) 


ELSE CB Insert (HLeft, Item) 
ELSE 


IF ABS(Diff) <= CDV THEN CB Insert (LRight, Item) 


ELSE CB Insert (HRight, Item) ; 
END; (* WITH *) 


PROCEDURE CB Search(VAR Root : CB Ptr; { input } 
VAR Target : INTEGER { input }); 
(* Recursive procedure to search for Target value *) 


BEGIN 
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IF Root <> NIL THEN 
IF Target <> Root®*.Value THEN BEGIN 
Diff := Root*.Value - Target; 
IF Target < Root*%.Value THEN BEGIN 


IF ABS(Diff) <= CDV THEN Root := Root’%.LLeft 
ELSE Root := Root*.HLeft; 
CB Search (Root, Target) 
END 
ELSE BEGIN 
IF ABS (Diff) <= CDV THEN Root := Root®.LRight 
ELSE Root := Root”.HRight; 
CB Search (Root, Target) 
END; 
END; 
END; 
Ss ccna evs jens etl csp Oona da cpa a re Ca nepal etieetiatap olivier ape } 
BEGIN (* MAIN *) 
CDV := Trunc(0.05 * RANGE); 
Cirser: 
WRITE (* ':10); 
WRITELN ( '--------- Menu for Method of Generating Numbers -------- ee 
WRITELN; ° 


WRITELN(' 0) Random numbers '); 

WRITELN(' 1) Sine function '); 

WRITELN(' 2) Cosine function '); 

WRITELN; 

WRITE ('Enter code for array creation : '); 
READLN (Choice) ; WRITELN; 

Create (Choice) ; 


WRITELN; WRITELN('Created array'); WRITELN; 
(* Building the binary tree *) 
BinTreeRoot := NIL; 
Get Time(Timer Start); 
FOR I := 1 TO SIZE DO 
Bin Insert (BinTreeRoot, Numbers [I]) ; 
Get Time(Timer Stop); 
Time Diff(Timer Start, Timer Stop, Time Elapsed) ; 
Show_Time (Time Elapsed) ; 
WRITELN(' for creating binary Tree'); WRITELN; 


(* Building the CB-tree *) 
CBTreeRoot := NIL; 
Get _Time(Timer Start); 
FOR I := 1 TO SIZE DO 
CB Insert (CBTreeRoot,Numbers[I]); 
Get Time(Timer Stop) ; 
Time Diff(Timer Start, Timer Stop, Time Elapsed) ; 
Show Time (Time Elapsed) ; 
WRITELN(' for creating CB-Tree'); WRITELN; 


Get Time (Timer Start); 
FOR Iter := 1 TO MainLoopCount DO 

FOR I := SIZE DOWNTO 1 DO 

Bin Search(BinTreeRoot,Numbers[SIZE + 1 - I]); 

Get Time(Timer Stop); 
Time Diff(Timer Start, Timer Stop, Time Elapsed) ; 
Show _Time (Time Elapsed); WRITELN(' for binary tree search"); 
WRITELN; 


Get_Time (Timer Start); 
FOR Iter := 1 TO MainLoopCount DO 


FOR I := SIZE DOWNTO 1 DO 
CB Search (CBTreeRoot,Numbers[SIZE + 1 - I}); 
Get Time(Timer Stop); 
Time Diff(Timer Start, Timer Stop, Time Elapsed) ; 
Show Time (Time Elapsed); WRITELN(' for CB-tree search"); 
WRITELN; 


1 1 . . © 
ae DONE'); WRITELN; End Listing One 


(Listing Two begins on next page. ) 
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MULTITASKING 


With 








MultiDos Plus 
‘‘multitasking for the IBM-PC.’ 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Pius an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 
Your software continues to run 
under DOS. No need to learn a 
new operating system. 
Use the compilers you already 
have. Supports software written in 
most languages. 
Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend / 
resume programs. 
Programmatic interface via INT 15H 
for the following. 


* Intertask message communica- 
tion. Send/receive/check mes- 
sage present on 64 message 
queues. 

Task control by means of 
semaphores. Get/release/check 
semaphores. 

Change priority-256 priority 
levels. 

Suspend task for specified 
interval. 

Spawn and terminate external 
and internal tasks. 
Disable/enable multitasking. 
and more! 

Independent foreground /back- 

ground displays. 

Access to DOS while applications 

are running. 


Hardware/Software Requirements 


IBM PC/XT/AT or true clone. Enough 
memory to hold MultiDos Pius (48 
KB) and all your application programs. 
Also may need 4 or 16 KB memory 
for ‘hidden screens’ for each active 
task. MS-DOS (or PC-DOS) 2.0 or 
later operating system. 


only: $24.95 or 
$99.95 


with source code 


Outside USA add $5.00 shipping and handling. 
Visa and Mastercard orders only call 
toll-free: 1-800-872-4566, ext. 350., or 
send check or money order to: 


NANOSOFT 


13 Westfield Rd, Natick, MA 01760 
MA orders add 5% sales tax. 
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68020 


UNIX COMPATIBLE 
MULTIUSER SYSTEM 


The MPULSE Model 20 


Multi-Processor Design: 


Separating application processing from I/O is a well 
understood goal in multiuser supermicrocomputer 
design. As the real UNIX system bottleneck is disk I/O 
bandwidth, not raw processor speed, LPC has spent a 
great deal of time and development effort in optimizing 
disk I/O throughput. The result is a disk I/O 
subsystem unparalleled in the under $20,000 
microcomputer class. 








A fully asynchronous, high speed DMA channel 
links the MC68020 to the dual MC68000 I/O 
processors. A full 2 Mbytes of I/O processor memory 
is available for disk caching. The disk cache utilizes a 
least recently used, delayed write algorithm to achieve 
hit rates exceding 90%. 


In addition to disk caching, LPC has extended the 
conventional UNIX caching mechanism with a new 
virtual caching technique, implemented in the kernel 
itself. The Dynamic Kernel Cache (DKC) distributes 
available memory between user processes and the 
internal UNIX cache. This dynamic allocation 
technique allows a much more efficient use of main 
memory with cache efficiency increased to over 80%, 
much higher than the conventional UNIX caching 
mechanism. 


Operating System: 


The MPULSE Model 20 hosts LPC's System V 
operating system, derived from the industry standard 
UNIX System V. The MPULSE System V port is 
tailored to complement the MPULSE hardware while 
retaining compatibility at all levels with the generic UNIX 
System V operating system. Areas of optimization and 
additional features include: 


@ Full demand-paged virtual memory 

@ Kernel portions of the terminal and mass storage I/O 
disciplines are distributed to the appropriate I/O 
processors 

@ Berkeley enhancements 

@ Dynamically distributed ramdisks 

@ On-line Winchester disk bad block replacement 

@ On-line device configuration 

@ True multisector I/O for streaming tape operation 

@ Support for implementing concurrent operating 
systems 

@ General purpose user-accessible SCSI device driver 

@ Automatic bi-directional modem support 

@ MWindows windowing capability 





Base System Includes: 


@ 16 MHz MC68020 host processor 

@® DUAL 12 MHz MC68000 I/O sub-system 

® 4Mbytes main memory 

@ 2 Mbytes of dedicated disk cache memory 
® Demand-Paged Virtual Memory 

@ Sophisticated LRU caching algorithm 

@ Dynamic Kernel Cache (DKC) 

® MWindows 

@ 50 MByte hard disk expandable to 0.5 gigabytes 
@ 800 Kbyte floppy drive 

@ 60 Mbyte cassette tape backup 

@ 8 serial ports expandable to 40 serial ports 
@ LPC System V derived from UNIX System V 
@ Berkeley Enhancements 

@ NCR Tower object code compatibility 


Base System Price: 


$5995.00 
Call (214) 340-5172 


Warranty: 
90 day (extended warranty available) 
15 Day money back evaluation period 


LPC Logic Process Corporation 
10355 Brockwood Road Dallas, Texas 75238 


DKC and MWindows are trademarks of LPC. 
UNIX is a trademark of AT&T. 
Tower is a trademark of NCR. 
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Listing Two (Text begins on page 122.) 


PROGRAM Test_Clustered Lists; 


{$R+, V-} 


{ ee — — it 


Turbo Pascal program that implements routine for inserting, 
searching and viewing clustered list structures. 


Copyright (c) 1987 Namir Clement Shammas 


==> 55 555555555555 55555555555 55555555555 5555555 >= SS == } 


CONST LENSTRING = 30; 
MAX LIST = 100; 
MDNM@ 
CDV = 0; { Critical Difference value } 


TYPE LSTRING = STRING[LENSTRING] ; 
KeyArray = ARRAY [1..MAX LIST] OF LSTRING; 


ListPtr = “ListNode; 


{ CLustered List structure } 
ListNode = RECORD 
Key : LSTRING; 
{ other fields may be placed here } 
NextPtr, NextHi : ListPtr; 
END; 


VAR Head : ListPtr; 
LesKeys : KeyArray; 
I, Count : INTEGER; 


PROCEDURE Search Node (Head ListPtr; { input } 


SearchData : LSTRING; { input } 
VAR Found : BOOLEAN; { output } 
VAR LastPtr, 

ThisPtr : DistPtr-.-¢ sutput})s 


{ search for 'SearchData' in list } 


VAR HiTrack : BOOLEAN; 
Ordl, Diff : INTEGER; 


BEGIN 
Found := FALSE; 
HiTrack := TRUE; 
LastPtr := NIL; 
ThisPtr := Head; 


Ordl := ORD(SearchData[1]); 
WHILE (ThisPtr <> NIL) AND (ThisPtr*.Key < SearchData) DO BEGIN 
LastPtr := ThisPtr; 
IF HiTrack THEN BEGIN 
Diff := ORD(ThisPtr*.Key[1]) - Ordl; 
IF ABS(Diff) > CDV 


THEN 
ThisPtr := ThisPtr*.NextHi 


ELSE BEGIN 
ThisPtr := ThisPtr*.NextPtr; 
HiTrack := FALSE { switch to low track } 
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END; { IF ABS (Diff 


END 
ELSE 
ThisPtr := ThisPtr”% 
{ END IF HiTrack } 
END; { WHILE } 
IF ThisPtr <> NIL THEN Fou 


END; { Search Node } 


PROCEDURE Insert List (VAR Head 
NewData 


Fa 


-NextPtr; 





nd := (ThisPtr*.Key = SearchData) ; 


¢:. BEStPrcr: 


: LSTRING 


{ Insert new data string into the list } 
VAR Found : BOOLEAN; 

Ordl, Diff : INTEGER; 

Tempo : LSTRING; 

Node, LastPtr, ThisPtr : ListPtr; 


BEGIN 


{ in/out } 
{ input }); 


Ordl := ORD(NewData[1]); { get ascii code of firt char } 


IF Head = NIL THEN BEGIN { start a new list } 


new (Head) ; 
WITH Head* DO BEGIN 
NextPtr := NIL; 
NextHi := NIL; 
Key := NewData 
END; { WITH } 
END 


ELSE BEGIN { expand list } 
new (Node) ; 

WITH Node* DO BEGIN 
Key := NewData; 
NextPtr := NIL; 
NextHi := NIL 

END; { WITH } 


Search Node (Head, Node*.Key, Found, LastPtr, ThisPtr); 


IF LastPtr = NIL THEN BEGIN { insert as new list head } 
Diff := ORD(Head*.Key[1]) - Ordl; 
IF ABS(DIFF) > CDV THEN 


Node’ .NextHi 
ELSE 

Node*.NextHi 

Node* .NextPtr 
{ END IF } 


Head := Node; 
END 


ELSE BEGIN { insert new data in the middle or at the tail } 


:= Head 


Head; 


Head”® .NextHi; 


Diff := Ordl - ORD(LastPtr*.Key[1]); 


. IF Diff <= CDV THEN BEGIN 
{ insert inside a clustered sublist } 
{ LasPtr may be a high of low track node } 
s= LastPtr’*.NextPtr; 


Node* .NextPtr 


LastPtr*.NextPtr 


END 
ELSE BEGIN 
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(continued on next page) 





SQL Compatible Query System adaptable to any 
operating environment. 



























CQL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 





Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 


Screen 1/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 
















HARDWARE AND FILE SYSTEM 
INDEPENDENT 





MACHINE 
INDEPENDENT 
SOFTWARE 


CoRPORATION 


1415 NORTHGATE SQUARE #21D 
RESTON, VA 22090 
VISA/Master Charge accepted 


(703) 435-0413 


*C-tree is a trademark of FairCom 
IBM, SEQUEL, PC, XT, AT are trademarks of IBM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


COL and the COL logo are trademarks of 
Kurtzberg Computer Systems. 
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Listing Two (Listing continued, text begins on page 122.) 
IF ThisPtr <> NIL 
THEN BEGIN 


Diff := Ordl - ORD(ThisPtr%*.Key[1]); 
IF ABS(Diff) > CDV 


THEN BEGIN {insert between two high track nodes } 


Node*.NextHi := LastPtr*.NextHi; 
LastPtr’®.NextHi := Node 
END 


ELSE BEGIN {swap names in the next high track node } 


Tempo := Node%.Key; 
Node’ .Key := ThisPtr%.Key; 
ThisPtr®.Key := Tempo; 
{ insert a new swapped first element 
{ in clustered sublist 
Node*.NextPtr := ThisPtr*.NextPtr; 
ThisPtr®.NextPtr := Node 

END? {LF} 


END 
ELSE BEGIN { insert as last high track node } 
Node*.NextHi := LastPtr*.NextHi; 
LastPtr®.NextHi := Node 
END; { IF } 
END; { IF } 
END;. { JF LastPtr = NIL } 


END; { IF Head = NIL } 


END; { Insert List } 


PROCEDURE List_to Array (Head 
VAR Keys 
VAR Count 


ListPtr;-. {input} 
KeyArray; { output } 
INTEGER { output }); 


{ Converts the list to an array containing sorted names } 


PROCEDURE Visit Low Node (VAR Node : ListPtr); 
{ Local recursive routine to visit low tracks of a list } 


BEGIN 


IF (Node <> NIL) AND (Count < MAX LIST) THEN BEGIN 
Count := Count + 1; 
Keys [Count] := Node*.Key; 
WRITE(' ',Keys[Count]:10) ; 
Visit _Low_ Node (Node*.NextPtr) ; 
END 


ELSE WRITELN(' -]'); 


END; { Visit Low Node } 


PROCEDURE Visit Hi Node (VAR Node : ListPtr); 
{ Local recursive routine to visit high tracks of a list } 


BEGIN 


IF (Node <> NIL) AND (Count < MAX LIST) THEN BEGIN 
Count := Count + 1; e 
Keys[Count] := Node*.Key; 
WRITE (Keys [Count] :10) ; 
Visit_Low_Node (Node*.NextPtr) ; 
Visit _Hi Node (Node* .NextHi) ; 
END; 


} 
} 
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END; { Visit Hi Node } 


IF Head <> NIL THEN BEGIN 
Count := 0; 
Visit Hi Node (Head) ; 

END 

ELSE 


Count := 0? 
{ END IF } 


END; { List_to Array } 


BEGIN 


CirsScrs 
IF CDV < 0 THEN BEGIN 


WRITELN('Adjust Critical Difference Value Please"); 


HALT 
END; 


Head := NIL; 


WRITELN('List of sorted capitals '); WRITELN; 
Insert List (Head, 'London'); 
Insert List (Head, 'Ankara'); 


Insert List (Head, 'Athens'); 
Insert List (Head, 'Bonn"') ; 


Insert List (Head, 'Sau Paulo'); Insert_List (Head, 'Moscow') ; 


Insert List (Head, 'Otawa'); 
Insert_List (Head, 'Bern'); 
Insert List (Head, 'Cairo'); 
Insert List (Head, 'Madrid'"); 
Insert List (Head, 'Paris'); 


List to Array(Head, LesKeys, Count); 


END. 












Periscope debugging power is available in four models... Start with the 
model that fits your current needs. When you need more horsepower, 
upgrade for the difference in price plus $10! 


When you move to another Periscope model, don’t worry about havin 
a lot more to learn...Even when you move to the most powerful model, 
Periscope III, an extra dozen commands are all that’s involved. 









A Periscope I user who recently began using Periscope III writes, “Y like 
the fact that within the first half hour of use I was debugging my program 
instead of learning to use the debugger.” 


Periscope’s software is solid, comprehensive, and flexible. It helps you 
debug just about any kind of program you can write...thoroughly and 
efficiently. 


Periscope requires an IBM PC, XT, AT, or close compatible (Periscope III 
requires hardware as well as software compatibility); DOS 2.0 or later; 64K 
available memory; one disk drive; an 80-column monitor 







Call us with your questions; we'll be happy to send you FREE informa- 
tion or help you decide on the model that best fits your needs. 









Periscope- Power... Made to Order! 


The unquestioned price/performance leader in PC debuggers offers you a full line of debugging 
systems, from software-only Periscope II-X to the full-fledged hardware breakpoint Periscope IIL 





Insert List (Head, 'Tokyo'); 
Insert List (Head, 'Warsaw'); 
Insert List (Head, 'Rome') ; 
Insert List (Head, 'Lisbon"); 
Insert List (Head, 'Baghdad') ; 


End Listings 





Periscope I includes a half-length board with 56K of write-protected 
RAM; break-out switch; software and manual for $345. 


Periscope II includes break-out switch; software and manual for $175. 
Periscope II-X includes software and manual (no hardware) for $145. 


Periscope III includes a full-length board with 64K of write-protected 
RAM, hardware breakpoints and real-time trace buffer; break-out switch; 
software and manual. Periscope III for machines running up to 8 MHz is 
$995: for machines running up to 10 MHz, $1095. 


Order Your Periscope, Toll-Free, Today! 
800/722-7006 





The 


PERIS E 


Company, Inc. 14 Bonnie Lane « Atlanta, GA 30328 « 404/256-3860 
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The Ultimate Metronome: 


C Cae! 


Writing Interrupt Service Routines in C 


he ostensible topic of this 
month's column is a fancy met- 
ronome program capable of doing 
polyrhythms and even more com- 
plex rhythmic patterns. As is often 
the case, however, the pieces are as 
interesting as the whole. For exam- 
ple, in order to get adequate timing 
resolution, I had to speed up the IBM 
PC’s system clock and then supply 
my own interrupt service routine, 
written largely in C—though there’s 
a little assembly language. The rou- 
tines used for this purpose are useful 
in other applications as well (such as 
a preemptive multitasking scheduler 
that I’m also writing). 5 
The metronome is pretty spiffy in 
its own right, though. I use it for my 
own compositional work to create 
“click tracks” for electronic pieces. (A 
click track is one track of a multitrack 
tape that holds nothing but timing in- 
formation. You use it as a reference 
as you add additional tracks to the 
piece and then remove it from the 
final mix.) The program lets you plot 
all the complex rhythmic patterns 
required for a complete piece of mu- 
sic. (The maximum time varies; the 
program can do up to 1,280 mea- 
sures, and if these are measures of 6/ 
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8 at metronome 120, that’s 64 min- 
utes.) Though I’m just ringing the bell 
on the PC to mark beats, it wouldn't 
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Figure 1: A 3 against 4 polyrhythm 
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be too hard to modify this program to 
use a MIDI drum machine or the like 
to make the sounds. 


Metronomes and 

Time Signatures 

When metronomes were introduced 
in the early 19th century (Beethoven 
was the first major composer to use 
one), it finally became possible for 
composers to present timing infor- 
mation accurately to performers. To 
understand why this wasn’t possible 
before, you have to look at how a 
standard time signature works. Mu- 
sic, by nature, is cyclical, and a mea- 
sure is one complete cycle of the un- 
derlying rhythmic pattern. A march, 
for example, has two beats in a mea- 
sure (oom pah, oom pah), a waltz has 
three (oom pah pah, oom paa pah), 
and rock and roll usually has four- 
beat measures. The main purpose of 
the measure structure is to tell the 
performer where to put emphasis. 
That is, the first note of the measure 
(called the downbeat) is usually 
played a little more forcefully than 
the other notes in the measure (OOM! 
pah pah). 





Coupled with the measure are the 
individual notes. A whole note re- 
quires an entire measure to play. If 
you think in terms of an organ, you 
hold the key down for the entire 
measure. A half note requires half a 
measure. There are two half notes in 
a whole note, two quarter notes in a 
half note, two eighth notes in a quar- 
ter note, and so forth. Each of these 
types of notes are represented by a 
slightly different symbol in a musical 
score. You'll note (so to speak) that 
this system is self-relative. There’s no 
absolute durational information in a 
particular note symbol—every- 
thing's relative to the other notes. 

A standard time signature gives 
you two pieces of information—the 
number of beats in a measure and 
which of the various types of notes in 
the score represent one beat. For ex- 
ample, the time signature 3/4 (pro- 
nounced “‘three four’’) has three 
beats in the measure and a quarter 
note is one beat long. So a complete 
three-beat measure can be composed 
of three quarter notes, six eighth 
notes, two quarter notes and two 
eighth notes, and so forth. A time sig- 
nature is not a fraction; 6/8 is not the 
same thing as 3/4. The emphasis in 
the former is on every sixth beat, 
whereas the emphasis in the latter is 
on every third beat. There’s no infor- 
mation in a time signature about the 
actual duration of a beat in seconds. 
This duration is usually detailed with 
written instructions—most often in 
Italian—that are quite inexact (fast, 
slow, medium-fast, and so on). 

The metronome changed all this. 
The mechanical metronome used by 
Beethoven is still in use today. It con- 
sists of a spring-driven pendulum 
with a weight on it. The position of 
the weight determines the rate at 
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C PROGRAMMERS- 
We asked what you 
wanted in a database 
development system and 
we built it! 
db_VISTA III™ is the database development system for 
programmers who want powerful, high performance 
DBMS capabilities ... and in any environment. Based on 
the network database model and the B-tree indexing 
method, db_VISTA III gives you the most powerful and 
efficient system for data organization and access. From 
simple file management to complex database structures 
with millions of records. db_VISTA III runs on most 
computers and operating systems like MS-DOS, UNIX, 
VAX/VMS and OS/2. It’s written in C and the complete 
source code is available, so your application perfor- 
mance and portability are guaranteed! With db_VISTA 

| III you can build applications for single-user microcom- 
puters to multi-user LANs, up to minis and even main- 
frames. 
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. oe oS Restructure Program. 
© Redesign your database easily. 
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RAIMA’S COMMITMENT TO YOU: No Royalties, Source 


Code Availability, 60 days FREE Technical Support and 
our 30-day Money-Back Guarantee. Extended services 
available include: Application Development, Product 
Development, Professional Consulting, Training Classes 
and Extended Application Development Support. 


HOW TO ORDER: Purchase only those components 
you need. Start out with Single-user for MS-DOS then 
add components, upgrade ... or purchase Multi-user 
with Source for the entire db_VISTA III System. 

It’s easy... call toll-free today! 





Development System 


db_VISTA II" $595 - 3960 
db_QUERY $595 - 3960 
db_ REVISE ™ $595 - 3960 


db_ VISTA” File Manager Starts at $195 


We'll answer your questions, help 
determine your needs and get you started. 


= CALL TODAY! 
S 1-800-db-RAIMA 
(that’s 1-800-327-2462) 


RAIMA 


CORPORATION 


3055 112th Avenue N.E., Bellevue, WA 98004 (206)828-4636 
Telex: 6503018237MCIUW FAX: (206)828-3131 


A Different BASIC Might 
Make All the Difference 


We'll skip the four-color gatefold. And the extravagant claims. 
Because if you’re serious about programming, you just want the straight facts: 


True Microsoft Borland 
BASIC Quick Basic Turbo Basic 
2.01 3.0 | 2.0 
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Macintosh, Translation 
Amiga, Atari required 


ond Three very structured, very powerful programming packages. All 
with fancy editors and fast compilers. Two of them are the same in 
‘other respects. And one of them, True BASIC, is quite a bit 
different. With syntax and features that will make you more productive. 






Max. Scalar Data Space 
Mouse Support 

80386 Version 
Portability to: 


No other 
machines 






That’s why reviewers for magazines like BYTE, PC Tech Journal and 
Computerworld keep giving True BASIC their top 
marks. And why OEMs pick True BASIC after S 
they’ve evaluated all the others. See why True 
BASIC can make the difference for you. 

Call 1-800-TRBASIC today. 
39 SOUTH MAIN STREET 
HANOVER, N.H. 03755 
(603) 643-3882 


True BASIC, Quick Basic and Turbo Basic are trademarks of True BASIC, Inc, Microsoft 
and Borland, respectively. Macintosh, Amiga and Atari are trademarks of Apple Computer, 
Inc., Commodore-Amiga, Inc. and Atari Corporation. Copyright 1987 True BASIC. 
Specifications are accurate as of August 1987. 
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C CHEST 
(continued from page 106) 


which the pendulum swings, and the 
box ticks at the end of each swing. 
Metronomes are calibrated in beats 
per minute, so a metronome 60 is one 
beat per second and a metronome 
120 is two beats per second. The com- 
poser can now put an instruction at 
the top of the score saying something 
such as “an eighth note is played at 
metronome 100.” 

Traditional metronomes are fine if 
youre writing waltzes, but they 
aren't really adequate for most mod- 
ern music for three reasons. First, 
some pieces have different time sig- 
natures on literally every measure, 
and you obviously can’t stop after ev- 
ery measure to adjust your metro- 
nome. A second, related, problem isa 
piece with measures of alternating 
time signatures—say, alternating 
measures of 5/8 and 6/8. Dave Bru- 
beck and Steve Reich both use this 
technique extensively. Finally, 
there’s the problem of polyrhythms. 
A polyrhythm is a rhythmic pattern 
in which two dissimilar time signa- 
tures are superimposed. For exam- 
ple, in three against four, a three-beat 
pattern is played in one hand and a 
four-beat pattern in the other. These 
come together in at least one place 
(usually on the downbeat) of every 
measure. This timing is illustrated in 
Figure 1, page 106. The three-beat 
pattern beats on every fourth tick, 
the four-beat pattern on every third 
tick. Polyrhythmic music is usually 
great dance music—you hear it in 
Latin, Brazilian, and West African 
pop music and more and more in 
contemporary Western music. 


Click: A Four-Channel 
Programmable Metronome 
The program I present this month, 
called click, is a programmable met- 
ronome that solves all the problems 
I've just discussed. Its invocation syn- 
tax is: 


click [-d] file 


where file holds an input program. 
Click outputs two things—beats in 
the form of sounds and a running 
count of the number of measures 
played so far. 

Click is programmed using a multi- 
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track tape recorder model. Four 
tracks (numbered 0 to 3) are support- 
ed, each of which can contain up to 
1,280 measures. Track 0 is always re- 
quired; the others are optional. The 
four tracks can be programmed inde- 
pendently, or they can synchronize 
to each other at the beginning of each 
measure. Different notes are used for 
the different tracks so that you can 
distinguish them. Track 0 uses mid- 
dle C, track 1 uses the C one octave 
up, track 2 uses the G above that, and 
track 3 uses the C above that. When 
there’s a conflict (a beat occurring at 
the same time on more than one 
track), the note associated with the 
higher track is used. The optional —d 
command-line switch forces all four 
tracks to use the same note (C5) for 
their beats. 

A short click program is shown in 
Example 1, page 112. The input lan- 
guage works as follows. White space 
(spaces, tabs, blank lines, and so on) is 
ignored except as is needed to sepa- 
rate commands. By the same token, 
all lines that don’t start with the 
word track and all text on a line that 
follows a semicolon are ignored. You 
can use this mechanism to comment 
your programs. The virtual tape is as- 
sembled using track commands, 
which take the following form: 


track n: <measure> [, <measure>] 


where n is a number in the range 0-3 
that specifies a track on the virtual 
tape. A <measure> is all text starting 
with a colon or comma, up to the 
next comma or end of line. Several 
comma-delimited measures can be 
placed on a single line. Tracks are ac- 
cumulated by successively adding 
the information in each track com- 
mand to the indicated track. 

A measure comprises one or more 
of the following commands, where n 
and m are numbers, and the com- 
mands can occur in any order: 


n/m—A command that starts with a 
digit represents either the time signa- 
ture or the number of beats in the 
measure. Here, n is the number of 
beats in the current measure and /m 
is ignored. In fact, you can omit the 
/m entirely if you like. A time signa- 
ture is required in every measure— 
I’'llshow you some examples in a mo- 
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UNIX TOOLS FOR YOUR PC 





PC/vr 
UNIX’s VI Editor Now Available For Your PC! 


Are you being as productive as you can be with your computer? 
An editor should be a tool, not an obstacle to getting the job done. 
Increase your productivity today by choosing PC/VI—a COMPLETE 
implementation of UNIX* VI version 3.9 (as provided with System V 
Release 2). 

PC/VI is an implementation of the most powerful and most 
widely used full-screen editor available under the UNIX operating 
system. The following is only a hint of the power behind PC/VI: 

e Global search or search and replace using regular expressions 

e Full undo capability 

e Deletions, changes and cursor positioning on character, word, 
line, sentence, paragraph, section or global basis 

e Editing of files larger than available memory 

e Shell escapes to DOS 

e Copying and moving text 

e Macros and Word abbreviations 

e Many controllable options including Auto-indent, Showmatch, 
and Wrap Margin 

e Filter text through external programs AND MORE! 

Don’t take it from us. Here’s what some of our customers 
say: “Just what I was looking for!’} “It’s great!) “Just like the real 
VI!: “The documentation is so good I have already learned 
things about VI that I never knew before.” — IEEE Software, 
September 1986. 

PC/VI is available for IBM-PC’s and generic MS-DOS? systems 
for only $149. Included are CTAGS and SPLIT utilities, TERMCAP 
function library, and an IBM-PC specific version which enhances 
performance by as much as TEN FOLD! 


PC/TOOLS” 


What makes UNIX so powerful? Sleek, Fast, and 
POWERFUL utilities! UNIX gives the user not dozens, but 
hundreds of tools. Now the most powerful and popular of these are 
available for your PC! Each is a complete implementation of the 
UNIX program. Open up our toolbox and find: 





e ASA e COMM _~ e DIFF3 e MV e SEE e TR 

e BANNER e CP e FIND ° OD e SORT e TOUCH 
e BFS e CUT e GREP e PASTE e SPLIT e UNIQ 

° CAL e DATE e HEAD e PR e STRINGS « WC 

e CAT e DIFF ° LS e RM e SUM 

e CHMOD e DIFFH~ e MAKE e SED ° TAIL 


All of these for a limited introductory price of only $49.00; 
naturally, extensive documentation is included! 


PC/SPELL 


Why settle for a spelling checker which can only compare words 
against its limited dictionary database when PC/SPELL is now 
available? PC/SPELL is a complete implementation of the UNIX 
spelling checker, renowned for its understanding of the rules of 
English! PC/SPELL determines if a word is correctly spelled by 
not only checking its database, but also by testing such 
transformations as pluralization and the addition and deletion 
of prefixes and suffixes. For only $49.00, PC/SPELL is the first 


and last spelling checker you will ever need! 
Wie eae 2 


Buy PC/VI and PC/TOOLS now and get PC/SPELL for only 
$1.00! Site licenses are available. Dealer inquiries invited. MA 
residents add 5% sales tax. AMEX, MC and Visa accepted without 
surcharge. Thirty day money back guarantee if not satisfied! 
Available in 54”, 34” and 8” disk formats. For more information 


call today! *UNIX is a trademark of AT&T. +MS-DOS is a trademark of Microsoft. 


CUSTOM SOFTWARE SYSTEMS 
PO. BOX 678 « NATICK, MA 01760 
617+ 653~ 2555 
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You’ve got better things to do than repeat the same steps. Cps. 
Over. ..andover.. . and over. Up your productivity with 
Greenleaf Software. 

With more than 70 new functions added to our popular libraries, 
Greenleaf is now the most complete and mature C language function 
resource available. It’s no wonder we’ve been rated the best. Winning 
program developers in major corporations such as IBM, EDS and GM 
have proven our reliability in thousands of applications. 


Step Lively 

New Greenleaf Functions v.3.10 includes 295 of the functions you’ve 
been asking for — DOS, disk, video, color text and graphics, string, 
time/date, keyboard, plus many more! With Greenleaf, 
you'll finish faster. 


Cut Corners 

When it comes to merging information, the new Greenleaf Comm 
Library v.2.10 is the fastest communications facility of 
its kind. Over 120 functions — ring buffered, 
interrupt-driven asynchronous communications. And, 
only Greenleaf gives you the power to build a 16-port 
communication system. 


Get on the Fast Track 


Order your new Greenleaf library today! See your 
dealer or call 1-800-523-9830. 





Greenleaf Comm Library $185.00 
Greenleaf Functions $185.00 
Greenleaf DataWindows $225.00 
Greenleaf C Sampler $ 94.50 
Digiboard Comm4 $325.00 
Digiboard Comms $535.00 


In stock, shipped next day. 
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and Turbo C 
DataWindows, the finest C 

programming windows tool 

available, puts windows, transaction 
data entry and menus at your | 
fingertips. 

Our new TURBO C versions are 
ready to get you going fast! And, 
our new 3-in-1 C Sampler for only 
$94.50 supports both Turbo C and 
Quick C with comm, windows, — 
menus and more! Our libraries 
support all popular C compilers for 
MS DOS. - 
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In Texas and Alaska: 
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ment. The maximum number of 
beats in a measure (n) is 255. 


(@n—A number following an at sign 
(@) is used to set the metronome 
count. For example, you'd use the fol- 
lowing to play 100 beats at metro- 
nome 120: 

track 0: 100 (@120 


One measure of 3/4, with the quarter 
note at metronome 120, is represent- 
ed as follows: 
track 0: 3/4 @120 
Alternating measures of 5/8 and 6/8 
at different metronome counts can 
be done with the following: 
track 0: 6/8 @120, 5/8 (@100 
track 0: 6/8 @120, 5/8 (@100 
track 0: 6/8 @120, 5/8 (@100 
Click supports a resolution as low as 
one metronome count—a metro- 


- Play four measures of 3/4, followed by four measures of a 3/4 
> against 4/4 polyrhythm, followed by four measures of 3 against 

3 4against5, followed by four measures of 3 against 4 against 5 
-¢ against 7. Sound a warning tone one measure before each change. 


track 0: 
track 1: 
track 2: 
track 3: 


(#4 3/4), 
(#4 3/4), 
(#4 3/4), 


#4 4/4, 


(#4 5/4), 


#43/H9120w, #43/49120w, #43/40120w, #43/40120W 


#4 4/4 
#4 5/4 
#4 7/4 


#4 4/4, 
#4 5/4, 
(#4 7/4), 


; Now go into Steve Reich mode. Play 20 measures of 4/4 at 
> metronome 150 and at the same time play 20 measure of 4/4 
; at metronome 151. The clicks start out on the same 

> beat and they very gradually go out of phase and then 


> come back into phase again. 


track 0: #20 4/4 4 150 
track 1: #20 4/4 a 151 


Example 1: A click program 





UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 


DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 

GREP - Regular expression search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 

FCHART - Traces the flow of control between 
the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 


_ The € Programmers Assistant 


C TOOLSET & 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 

C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 
risk-free for only $95. 


> 3 
olution 
ystems ™ 
541 Main Street. Suite 410D 


So. Weymouth, MA 02190 
617-337-6963 
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nome 1 is one beat/minute. There is 
no effective maximum count because 
the maximum is in the audio-fre- 
quency range. 

The @ command is required for 
every measure on track 0. It’s option- 
al, however, on the other tracks. If 
the @ command is omitted, the time 
between beats is stretched out so that 
the measure takes up the same time 
as the corresponding measure on 
track 0. For example, you can take 
advantage of the higher note being 
used in a conflict to accent the down- 
beat of a measure as follows: 

track 0: 3/4 @120, 3/4 @120 

track 1: 1/4 » if/4 
Here, each measure of track 1 takes 
the same amount of time to play as 
the corresponding measure of track 
0. You could do the same thing with: 

track 0: 3/4 @120, 3/4 @120 

track 1: 1/4 @ 30, 1/4 @ 30 
but then you'd have to do the math 
yourself. This synchronization fea- 
ture can also be used to do poly- 
rhythms. A three against four poly- 
rhythm can be specified with: 

track 0: 3/4 @120, 3/4 @120 

track 1; 4/4 , 4/4 
Four beats on track 1 are played in 
the same amount of time that it takes 
to play three beats on track 0 (1% 
seconds). 


#n—A # sign followed by a number is 
a repeat count. For example, you 
could specify ten measures of 6/8 at 
metronome 100 with: 

track 0: #10 6/8 (@100 
Note that 10 of the 1,280 measures are 
being used here. This isn’t usually a 
problem, but if it is, the following 
command outputs the same number 
of beats but uses only one measure: 

track 0: 60 (@100 
The earlier, two-measure-long, poly- 
rhythm can be restated as: 

track 0: #2 3/4 @120 

track 1: #2 4/4 


()—A measure surrounded by pa- 
rentheses is counted silently—no 
sounds are output during that mea- 
sure. This command is useful if you 
need measure-long rests in your mu- 
sic. For example, three measures of 
3/4, followed by three measures of a 
three against four polyrhythm, fol- 
lowed by three more measures of 4/ 
4, can be specified as follows: 

track 0: #3 3/4 @100, #3 3/4 (@100, 
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(#3 3/4 @100) 
track 1: (#3 4/4 ), #3 4/4, #34/4 
You could do the same thing with: 
track 0: #3 3/4 (@100, #3 3/4 @100 


track 1: (#3 4/4), #6 4/4 


warning—The warning command 
causes a warning tone (consisting of 





-Multiple-Statement Macros 
This month’s Flotsam and Jetsam dis- 
cusses how to write macros that have 
more than one statement in them. 
I've touched on some of this stuff in 
previous columns, but it’s worth- 
while to get everything in one place. 
-Two-statement macros such as: 


#define X() stmt1(); stmt2() 


are not usually a good idea. This mac- 
ro, when used in: 


if( condition ) 
X(); 

else 
something! ); 


expands as: 


if( condition ) 
stmt1(); 

stmt2(); 

else 
something! ); 


Adding curly braces does not solve 
the problem: 


-_#define X() {stmt1); stmt2( );} 
when used in: 
if( condition ) 
xX(); 
else 
something(); 
expands to: 


if( condition ) 


stmt1( ); 
stmt2(); 


) 


else 
- something(); 
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two high-pitched beeps) to be played 
rather than the normal downbeat of 
a measure. 

If the measure is created with a #n 
command, only the last measure of 
the series is affected. For example, if 
you want to do four measures of 3/4, 
followed by a change to 6/8 but with 


Flotsam and Jetsam 


The semicolon is a legitimate state- 
ment in C, so the else tries to bind to 
the preceding semicolon rather than 
the if. 
One workable solution to the prob- 




















cussed this month, in which I've used 
an if statement to create a block. The 
general form is: 


#define X()\ _ 
if(1) \ 
t\ 
stmti();\ _ 
stmt2(); \ 
selse 


You can even declare variables after 
the open curly brace if you like (see 
Listing Two, lines 50-61, page 82, for 
an example). These variables shadow 
(take precedence over) any variables 
that might have the same name inan 
outer block (they'll be different vari- 
ables). The trailing, but empty, else 
clause is required. Without it, the fol- 
lowing wouldn't work: 


if( condition } 
XC); 

else 
something! ); 


It would expand as: 


if( condition ) 
if(1) 


{ 
ss 


else 
something! ); 


The extra else statement forces the 
else something( ) to bind properly. 

A disadvantage of this method is 
that an if statement is not an expres- 
sion. Consequently, you can't say y = 
X( ); because it would evaluate to the 


lem was used in the program I dis-_ 












a warning just before the change, 
you'd say: 
track 0: #4 3/4 (@120 warning, 

#10 6/8 (@100 
The program plays three measures 
of 3/4 as usual; then it plays a final 
measure of 3/4, but in this measure 
the warning tone is used for the 


illegal y = iff 1 )...4 way around 
this problem is to use the comma (or 


sequence) operator. The comma op- 
erator evaluates left to right and eval- 


uates to the rightmost thing in the list. 


| ‘define X( i - , 


stmil(),\ 
stmt2( )\ 


) 


executes stmt1() first, then stmt2( ). 
The entire expression evaluates to 
the return value of stmt2( ). Note that 
I'm using parentheses, not braces, for 
grouping. 

A disadvantage of the comma oper- 
ator is that you can’t declare vari- 
ables local to the macro, as you can 
with braces. 

Don’t confuse the comma operator 
with the comma that’s used in a sub- 
routine call. They're different things. 
In order to get a comma operator into 
a subroutine call, you have to sur- 
round the expression with parenthe- 
ses, as in fool (a,b), c ). Here, the left 
comma is a comma operator, and the — 
one on the right is an argument-list — 
separator. This same caveat applies: 
to the D( ) macro that I discussed in- 
the November 1986 Flotsam and Jet- 
sam. The preprocessor accepts D( 
printf(” %d",x); ) but only because the © 
comma is surrounded by parenthe- 
ses. The following won't work: 


D( printf(’%d", ) 
D(x); ) 


because the preprocessor intercepts 
the trailing comma and looks for a 
second macro argument. Note that 
the comma used in a for statement, 
such as for( i=0,j=9;1 <j ;), is indeed 
a comma operator. 
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_ Want to turn programming time 
into prime time? Want to put some 
topspin on your techniques? Want 
to develop invaluable new resources? 

Time to hit the books. From 
Microsoft® Press. The best and 
brightest books in the business. 

Our parent company is Microsoft, 
the folks who taught the PC how to 
think. Our authors read like a Who’s 
Who of What’s What. 

Here are four ways to boost your 
computer’s [.Q.: 

Advanced MS-DOS® by Ray 
Duncan. Also 
tion bonanza for assembly language 
and C programmers. Disk files, 
records, directories, volume labels, 
internals, memory management, 
EXEC functions, installable device 


drivers. More. Ray Duncan has it 
down. Now you can, too. $22.95. 





468 pages. Softcover. 


The Peter Norton Programmer's 
Guide to the IBM”® PC by Peter 
Norton. Want to develop inter- 
mediate and advanced programs 
you can port from one branch 
of the PC tree to another? Want 
to understand the hardware? Soft- 
2 ware? The differences between PC, 
XT, AT and Jr.? Get the latest tech 
talk? Relax. The leading authority in the field leads you 
out of the bog. $19.95. 448 pages. Softcover. 


Microsoft QuickBASIC by Douglas 
Hergert. Here’s the perfect way to 
get up to speed with QuickBASIC. 
Plus five, smart, sample programs 
that'll tweek your QuickBASIC 
skills: MORTGAGE, for data types; 
QUICKCHART, for graphics; 
SURVEY, for data-file techniques; 
EMPLOYEE, for random-access 
files; TWENTY-ONE, for IF... THEN... ELSE games. 
$18.95. 384 pages. Softcover. 


Proficient C by Augie Hansen. 
Cross DOS and C and what do you 
get? Powerful programs that run at 
warp speed. Use the ANSLSYS 
device driver and the MAKE and 
LIB utilities to learn valuable, 
reuseable methods of structured 
program development. From the 
man whose proficiency at Bell 
Labs, General Dynamics and Raytheon was the spring- 
board to this expert guide for intermediates — and experts. 
$22.95. 512 pages. Softcover. 


Don’t fumble for answers. Turn to 
Microsoft Press. Remember: What 
you get out of your PC depends on 
what you read into it. 


Available wherever books and software are sold. Credit card 
orders call 1-800-638-3030. In Maryland call collect, 824-7300. 





see eee ee 


- QuickBASIC 











Microsoft and MS-DOS are registered trademarks of Microsoft 
Corporation. IBM is a registered trademark of International 
Business Machines Corporation. 


Circle no. 125 on reader service card. 
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known as an informa- 


C CHEST 
(continued from page 113) 


downbeat; finally, it plays ten mea- 
sures of 6/8. That is, you get a warn- 
ing at the beginning of the measure 
that immediately precedes the new 
time signature. 

This command can be abbreviated 
to w or W if you like (actually, any 
word that starts with a w will do). 
The frequency of the warning tone is 
not affected by the -d command-line 
switch, and it cannot be suppressed 
with parentheses. 


Implementation 

Click is implemented in Listings One- 
Seven, pages 82-96. Listing One, de- 
bug.h, is a general-purpose file that 
contains macros I use regularly. The 
D() macro was discussed in the No- 
vember 1986 C Chest (it’s also in 
Bound Volume 11, page 740). Its argu- 
ment goes away when DEBUG isn't 
defined. The PUBLIC and PRIVATE 
macros just declare a subroutine as 
static or not. They’re useful because 
you can easily change the storage 
classes of all private subroutines to 
nonstatic when you're debugging. 
The UX( ) and MS() macros work 
just like the D( ) macro does. Here the 
argument to MS( ) is used only if MS- 
DOS is defined, and the argument to 
UX( ) is used only if MS-DOS isn’t de- 
fined (UX stands for Unix). 

Listing Two presents hardware.h, 
a catchall file for IBM PC hardware 
defines. These macros define various 
numbers used for talking to the 
counter-timer chip in the PC and for 
turning the speaker on and off. The 
process is described in detail in the 
books listed in the bibliography. Tim- 
er channel 0 is used for the system 
clock interrupt, channel 1 triggers a 
memory refresh and shouldn't be 
touched by your program, and chan- 
nel 3 is used to control the frequency 
of the PC’s speaker. 

The SETFRQ macro is interesting 
because it does more than one thing 
in a single macro. It’s described in 
depth in this month’s Flotsam and 
Jetsam. You pass it a desired frequen- 
cy (in Hz), and it causes the bell to ring 
at that frequency the next time the 
speaker is enabled (with a 
SPKR_ON( ) invocation). The fre- 
quencies of the 12 notes in the middle 
octave of an equal-tempered chro- 


matic scale (as on a piano) are defined 
in notes.h (Listing Three) (C4 is middle 
Con a piano). Go up an octave by mul- 
tiplying by 2, down by dividing. Go 
up a half step (from C to #C, for exam- 
ple) by adding the TWELFTH_ROOT 
_OF_TWO to a note. 

The beep(freg, duration) subrou- 
tine (Listing Four) uses all this stuff to 
ring the bell on the PC at a specified 
frequency for an indicated number 
of seconds. Both of these numbers 
can be fractional. For example: 


#define <notes.h> 
beep( G4, 0.5 ); 


plays the G above middle C for a half 
second. 


The ROM BIOS keeps 
arunning count of 
Clock ticks. 





The note duration is determined 
by the argument sent to the delay( ) 
subroutine, called on line 18 and de- 
clared in Listing Five. The ROM BIOS 
keeps a running count of clock ticks, 
accessible via function 0 of interrupt 
0x1a. 0 is midnight on the day that the 
machine was started, and the inter- 
rupt returns with AH set to nonzero 
when you roll past midnight. Delay( ) 
just waits in a tight loop for the cor- 
rect number of ticks to pass. 

Hitherto I’ve looked at pretty 
straightforward code, described in 
most books on DOS programming. 
With Listing Six, things get more in- 
teresting. The IBM PC system clock 
ticks once every 18.2 seconds (more 
or less). This resolution isn’t adequate 
for musical applications—for exam- 
ple, click couldn't distinguish be- 
tween metronome 150 and 152 at the 
default resolution. Moreover, sitting 
in a tight loop waiting for the clock to 
tick isn’t a good way to do things—it’s 
too easy to miss a tick. 

These problems are solved in two 
ways. First, you have to speed up the 
system clock in such a way that you 
don’t mess up the real DOS clock. Sec- 
ond, you have to provide the inter- 
rupt service routine to take care of 
the faster clock tick. If you speed up 
the clock by a factor of 4, for exam- 
ple, your interrupt service routine is 
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Peter Norton. 
new programm 
st o hate 


Nobody ever said programming PCs was 
supposed to be easy. 
ut does it have to be tedious and time- 


























consuming, too? 
Not any more. 
————._, Not ences ~ =< of the remarkable new 
roductivity tool ‘(cos program on the le 
The ultimate p Puts volumes ich is designed to save you most of the 
referenced data at your time you're currently spending searching through 
__ Of Cross- Replaces most manual the books and manuals on the shelf above. — 
» fingertips. with a few simple The Norton On-Line Programmer's Guides™ 
a searches Includes are a quartet of pop-up reference packages that do 
_ ~ ES. tiny the same things in four differ- 
\ compiler for creating ent languages. 
) your own databases. Each package consists of 
}\ @ Also available in two parts: A memory-resident 
W versions for BASIC, C Instant Access™ program. 
We =andPascal. __ And a comprehensive, 
Pe = pa cross-referenced database — 
ae J crammed with just about — 
SSS” everything you need to know to program in your 
favorite language. 


d when we say everything, we mean 
everything. — 
Everything from information about language 


Designed for the IBM® PC, PC-AT and DOS compatibles. Available at most software 
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syntax to a variety of 
tables, including ASCII 
characters, line draw- 
ing characters, error 
messages, memory 
usage maps, important 


data structures and 

More. A Guides reference summary 
How much more? ioe sneer in blue) pops - on 
Well, the databases eee 


for BASIC, C and Pas- 
cal give you detailed listings of all built-in and 
ape pears. 

ile the Assembly database delivers a com- 
plete collection of DOS service calls, interrupts 
and ROM BIOS routines. 

You can, of course, find most of this informa- 
tion in the books and manuals on our shelf. 

But Peter Norton—who’s written a few books 
himself—figured you’d rather have it on your 
screen. 

In seconds. 

In full-screen or moveable half-screen mode. 

Popping up right next to your work. Right 
where you need it. 
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This, you're probably 


thinking, is precisely the 
kind of flinging that pro- 


duced the classic Norton 
Utilities™ 
And youre right. 
But even Peter Nor- 
Summary data expands on ton cant think of every- 
command into extensive detail. 


g. 
oN eee apindion Which is why there’s 
a built-in compiler for 
ae databases of your own. 

And why all Guides databases are compatible 
with hae Instant Access program in your original 
package. 

So you can add more languages without spend- 
ing a lot more money. 

‘To get more information, call your dealer. Or 
call Peter Norton at 1-800-451-0303 Ext. 40. 

And ask for some guidance. 


Peter Norton- 
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CG CHES! 
(continued from page 115) 


activated on every tick and your rou- 


tine jumps to the default service rou- 
tine on every fourth tick. As a final 
convenience, you want to be able to 
write your own interrupt service 
routine in C, without having to go to 
assembly language. 

All of this is done by the routines in 
Listing Six. The speedup( ) subroutine 
is called with: 


speedup( factor, funct ) 
int factor; 
int (*funct)( ); 


Factor is the speedup factor. Set it to 4 
for a fourfold increase in the clock 
speed. The funct argument is a point- 
er to an interrupt service routine that 
is called on every clock tick. I'll look 
at one of these shortly. 

Speedup( ) begins on line 93 of List- 
ing Six. The first thing it does is re- 
member the funct and factor argu- 
ments in two local variables: service 
and tick_reset (declared on lines 41 
and 45). It also remembers the value 


of the current data segment (on line 
103). You need to do this because it’s 
convenient for the C interrupt ser- 
vice routine to access static data and 
global variables. Because the timer 
interrupt can come at any time, you 
have no idea what number is in the 
DS register when the interrupt is ser- 


When the C routine 
returns, the service 
routine decides 
whether or not to call 
the default timer 
interrupt. 


viced; odds are it is incorrect (it will 
be the DS associated with the inter- 
rupted process). By remembering the 
DS register now, you can restore it 
later. Note that all the variables used 
by the interrupt service routine are 
being put into the _TEXT segment, 
which is normally used only for 


IS THERE A VOID 


IN YOUR LIFE? 





Admit it — you’ve been missing something. What you need is a 
practical publication that speaks Turbo Pascal, and Turbo Pascal only. 
Turbo Tech Report does just that: this bimonthly newsletter disk 
publication provides practical programming solutions both on disk 
and on paper. The approach is hands-on and how-to. Every issue 


contains: 


e Articles written by Turbo Pascal experts. 
© Reviews of the latest, hottest Turbo Pascal software products. 
¢ Practical demonstrations of how to solve a particular problem 


with a Turbo Pascal product. 


¢ A disk filled with code. You'll receive applications developed by 
authors, plus useful utilities, libraries and routines from Turbo 


Pascal users worldwide. 


Fill the void with a subscription to 7urbo Tech Report: 6 issues with 
6 disks for $99. Call (800) 533-4372 or Calif. residents call 
(800) 356-2002 and start your subscription today! 
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code. I’m doing this because the con- 
tents of the CS register must be valid 
when the service routine is entered 
(or you couldn't be there). So, you can 
always get at a variable in the _TEXT 
segment by using a _TEXT: or CS: seg- 
ment override. Then you can re- 
trieve the previously stored DS con- 
tents from a variable in the code 
segment. 

Lines 108 to 124 of Listing Six speed 
up the clock hardware. Note that you 
have to test explicitly for a factor of 1 
on lines 110 and 111 to avoid an arith- 
metic overflow exception. In this 
case, you want to load the counter 
with the default count of 0, which 
yields 64K ticks between interrupts 
(that’s the default 18.2 seconds). A 
speedup(1,...) call is useful if you 
don’t want to change the tick rate but 
do want to install your own service 
routine. Finally, the routine gets the 
old timer interrupt (8) vector, using 
DOS function 0x35 on line 133; saves it 
in old_seg:old_off; and then installs a 
new interrupt using DOS function 
0x25 (on lines 133-140). You have to 
push the DS register (on line 136) be- 
cause function 0x25 is passed the new 
vector in DS:DX. It’s restored on line 
140. 

You'll note that I didn’t actually in- 
stall the user-supplied service rou- 
tine in this last step; rather, I installed 
a pointer to the serv subroutine (lines 
156-207). This routine sets up the ma- 
chine environment so that the C rou- 
tine can be called safely, and only 
then does it call the C function. Serv 
starts out by setting up a new stack 
(on lines 160-164). A small, 128-byte 
stack (declared on line 52) is used for 
this purpose. Then it pushes all the 
registers onto the new stack (lines 
166-173). The old data segment is re- 
stored next so that the C function can 
get at global and local-static variables. 
Finally, the C routine is called (on line 
179) indirectly through the pointer I 
set up earlier (on line 102). 

When the C routine returns, the 
service routine decides whether or 
not to call the default timer interrupt. 
A running count (numticks) is decre- 
mented on each call. When it reaches 
0, you reset it to tick_reset (the first 
argument to speedup( ) ) and then 
jump to the old service routine (on 
line 205), again indirectly through a 
pointer. If numticks hasn't gone to 0, 
you send a nonspecific EOI (end of in- 
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terrupt) to the hardware (on line 197) 
and then do an iret to terminate the 
interrupt. 

The remainder of Listing Six is 
straightforward. Slowdown( ), de- 
fined on lines 213-247, just slows the 
clock down to its original rate and un- 
installs the custom service routine. 
Slowdown( ) must be called by your 
program before it terminates or the 
machine will go into outer space the 
next time a timer interrupt occurs. 
The cli( ) and sti( ) routines on lines 
70-78 just disable and enable inter- 
rupts from C. They're useful when 
trying to avoid various communica- 
tion problems between the interrupt 
service routine and the rest of the 
program. You'll see how in a mo- 
ment. 

Now that I've laid the groundwork, 
I can actually discuss the metronome 
program. Click.c is presented in List- 
ing Seven. A few of the #defines at the 
top of the listing are interesting. 
ROUND(x) takes as input a floating- 
point number (either float or double) 
and converts it to an int. It rounds to 
the nearest integer value, however, 
rather than just truncating—the de- 
fault behavior of the Microsoft com- 
piler. The various definitions needed 
to figure the clock rates are on lines 
42-46. FACTOR is the speedup( ) fac- 
tor. If the clock runs at less than 16 
times the default tick rate, the pro- 
gram won't be able to resolve the tim- 
ing by a single metronome count—it 
won't be able to differentiate be- 
tween metronome 150 and 151, for 
example. DEFAULT_TICK is the de- 
fault 18.2 times/second used by the 
system clock. ONE_TICK is the num- 
ber of times that the clock ticks in a 
second, given the speedup factor de- 
fined earlier. Finally, TICKS(x) con- 
verts a metronome x into a number 
of clock ticks. 

The virtual tape is defined with a 
system of typedefs on lines 60-78. 
Each measure is represented by the 
MEASUBPE structure defined on lines 
63-72. Num_beats is the number of 
beats in the measure, and ticks_per 
_beat is the number of timer ticks be- 
tween every beat. Num_beats is dec- 
remented on every beat, and when it 
reaches 0, the program goes to the 
next measure. When you're synchro- 
nizing with track 0 in a polyrhyth- 
mic mode, however, num_beats * 
ticks_per_beat is not necessarily the 
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exact number of clock ticks in the 
corresponding measure. The remain- 
der field makes up the difference. 
The extra ticks represented by re- 
mainder are spread over the first few 
beats of the measure to make up any 
discrepancy. This way the down- 
beats of synchronized measures will 
always coincide. Cur_tick is the cur- 
rent clock tick. It is initially set to ticks 
_per_beat and is decremented on ev- 
ery timer interrupt. When it reaches 
0, a tone is output and the variable is 
reinitialized to ticks_per beat. Num- 
_beats is also decremented at this 
point. The rest of the structure is just 
housekeeping: silent is set when this 
measure is silent; warning is set when 
a warning pulse is to be used on the 
downbeat of each measure. All these 
fields are used (and modified) by the 
interrupt service routine on each 
clock tick. 

A TRACK (on line 75) is an array of 
MEASURE structures, and the Tape 
(line 77) is an array of four TRACKs. 
The Measure array is an array of 
pointers, one for each track. These 
pointers point to the current mea- 
sure on each track. They are incre- 
mented by the interrupt service rou- 


tine every time it rolls over to a new 
measure. 

The next set of global variables 
(lines 82-102) are used by the inter- 
rupt service routine to pass informa- 
tion to the main body of the program. 
Ring_bell is set when the bell should 
be sounded. It is set to one more than 
the track number or to the special 
value WARNING, defined on line 56, if 
the warning tone should be sounded. 
Collision is set true when there’s a col- 
lision between two tracks (a beat oc- 
curs on both tracks at the same time). 
Downbeat is incremented on the 
downbeat of every measure on track 
0; it’s used to print the measure num- 
ber to the screen. Done is set to true 
when all tracks are exhausted, and 
Numticks is incremented on each 
timer interrupt (it’s useful primarily 
for debugging). 

By far the largest subroutine in the 
program is build_tracks( ) on lines 
219-358, which parses the input file 
and initializes the Tape/ ] array. In 
spite of its length, it’s pretty straight- 
forward and requires little additional 
comment here. 

More important is the interrupt 
service routine itself, timr_intr( ) on 


Worried about productivity, performance or quality? 
Find peace of mind... 


C Programmer's Toolbox 
Volumes I & Il 


23 powerful tools for the IBM PC, AT and compatibles, developed by 
professionals with many years of experience in system and application 
software development. For both beginning and experienced programmers. 


- Monitor program/system execution 

- Beautify program listings 

- Determine program flow/critical paths 
- Trace and verify variable usage 

- Filter input/output streams 

- Create/modify/verify file contents 


o Powerful, common user interface 
o Interactive and batch execution 
o Online documentation 

Oo Se ys error messages 
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PRESENTING THE DIFFERENCE BETWEEN 
FAST COMPILING AND FAST PROGRAMMING. 


For compiling speed, 
you can’t do better than 


Let’s C. But to really 
speed up programming 
you can’t do without the 
powerful source level 
debugger, csd. 

If you want the 
power, portability and flex- 
ibility of C, start with the 
complete compiler, Let’s C. 
For utilities, editor, compil- 
ing speed and fast, dense 
code, Let’s C has it all. 

But to get your pro- 
grams up and running you 
need more. Because even the fastest compiler 
can’t outrun bugs. You need the revolutionary C 





REVIEWERS ARE 
RAVING ABOUT 
LET’S C AND csd. 


“Let's C is an inex- 
pensive, high-quality 
programming package... 
with all the tools you will 
need to create applications.” 
—William G. Wong, BYTE, 
August 1986. 


“The performance and 
documentation of the $75 
Let’s C compiler rival those 
fC compilers for the PC 
" currently being sold for 
$500... highly recommended...” 


csd 


Source Debugger 


LIMITED TIME | —Marty Franz, PC TECH JOURNAL, August 1986. 


Source Debugger, csd OFFER “csd is close to the ideal debugging environ- 
CUT DEVELOPMENT TIME IN HALF FREE csd ment...a definite aid to learning C and an 
WITH csd WITH LET’S C! | indispensable tool for program development.”’ 


csd lets you bypass the time consuming frus- 
trations of debugging—like long dumps and clunky 
assembler. With csd, you actually debug in C. You learn 
faster because you watch your program mun in C. You 
finish faster because csd combines the speed of a compiler 
with the interactive advantages of an interpreter. The end 
result? Development time is sliced in half. 


LET’S C AND csd FEATURES 


e For the IBM-PC and Compatibles 
e Not copy protected 


Sieve Benchmark 
(Compile time in seconds) 


Let's C: 2.8 (On 512K 6Mhz IBM-AT) 
Turbo C: 3.89 (As advertised) 


csd: 
3 
e Debug in C source code, not 
assembler 
e Monitor variables while 
tracing program 
e Does not change program speed 


Let’s C: 





e Fast compact code plus register 
variables OF Size 


e Full Kernighan & Ritchie C and e Provides separate source, eval- 
extensions uation, program and history 

e Full UNIX compatibility and windows 
complete libraries e On-line help screens 

e Many powerful utilities including e Can interactively evaluate any 
make, assembler, archiver, cc one- C expression ee 
step compiling, egrep, pr, tail, wc e Can execute any C function in 

e MicroEMACS full screen editor your program 
with source included 

e Supported by dozens of third 
party libraries 


e Trace back function 
e Ability to set trace points 
e Not copy protected 








—William G. Wong, BYTE, August 1986. 


“This is a powerful and sophisticated debugger built on a 
well-designed, ‘serious’ compiler.” 
—Jonathon Sachs, Micro/Systems Journal, April, 1986 


START TO FINISH, THERE’S NO 
BETTER ENVIRONMENT. 


Get started with the right C compiler and you'll have 
everything you need for development—including source 
level debugging. On top of it all, Let’s C and csd are today’s 
best values in professional C programming tools. And 
most reliable: Mark Wiliams C compilers have been sold 
with DEC, Intel and Wang computers since 1981. 


60 DAY MONEY BACK GUARANTEE 


Mark Williams gives you a full 60 days to find out just 
how good Let’s C and csd really are—or your money back. 

So if you want more than a fast compiler—if you want 
your programs up and running fast, ask for Let’s C and 
csd. You'll find them at your software dealer’s, in the soft- 
ware department of your favorite bookstore, through the 
Express Program at over 5500 Radio Shacks or you can 
order now by calling 1-800-MWC-1700* 


“In Illinois call, 1-312-472-6659. DDJ 987 


Mark 
Williams 
Company 

1430 West Wrightwood, Chicago, Illinois 60614 


© 1987 Mark Williams Company 
Let's Cis a registered trademark of the eat oe Company. 
UNIX is a trademark of Bell 
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heat 
(continued from page 119) 


lines 362-427. Though the routine is 
just a C subroutine, there are several 
issues that must be kept in mind 
while writing it. First, MS-DOS is not 
reentrant. In practice, this failing 
means that you can’t call most DOS 
functions from an interrupt service 
routine (because the program might 
be in DOS when it was interrupted). 
The second issue is return values. Be- 
cause the service routine isn’t called 
in the normal way, it can't be passed 
parameters and it can't return a val- 
ue in the normal way. Global vari- 
ables must be used for this purpose. 
The remaining problems are stack- 
related. The interrupt service routine 
uses its own stack, so you have to dis- 
able the default stack-overflow 
checking that’s inserted by the com- 
piler (which will almost always fail 
because the stack isn’t where its sup- 
posed to be). This disabling is often 
done with a compiler command-line 
switch, but the Microsoft compiler 
lets you do it with the #pragma check 
_stack directives (on lines 362 and 
427). The pragma lets you disable the 
checking for one subroutine only, in- 
stead of affecting the entire module. 
A trailing minus sign disables check- 
ing and a plus sign enables it. The fi- 
nal stack issue is its size. The service 
routine uses a 128-byte stack, of 
which 18 bytes are used to save regis- 
ters and do the subroutine call. You 
have to be careful not only about the 
amount of stack used by your own 
local variables but also the amount of 
stack used by subroutines that the 
service routine might call. Be careful. 
If you need more stack, change the 
declaration for stack on line 52 of List- 
ing Six. 

The service routine itself modifies 
the global variables described earlier. 
The for loop is executed four times— 
one iteration for each track. The test 
on line 377 is for the end of track. If 
the beat count is 0, there are no more 
measures on this track. The next test 
(on line 379) checks to see if the bell 
should sound (this is the case if the 
current count is the maximum). The 
current tick is then decremented on 
line 402, and if it goes to 0, the num- 
ber of beats is also decremented (on 
line 404). The routine advances to the 
next measure, if necessary, on line 
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409. The else clauses on lines 411-421 
takes care of the Remainder—the ex- 
tra clock ticks that have to be inserted 
to keep synchronized with track 0. I 
add 1 to the current tick count on line 
418 to do this. That is, I stretch the 
current beat out by one clock tick. 
This way the extra ticks are spread 
over the first few beats in the mea- 
sure instead of being piled in one 
place. 

The main( ) subroutine has to do 
several things to get the ball rolling. 
First, it must call signal( ) to guaran- 
tee that slowdown( ) is called if you 
abort the program with Ctrl-Break. 
Signal( ) is called on line 495, and it 
installs the on_break( ) subroutine 
(lines 431-442) to call slowdown( ). 
Speedup( ) is called in the initializa- 
tion part of the for loop on line 497. 
The loop terminates when the inter- 
rupt service routine says that it’s fin- 
ished by setting the Done flag. The 
code in the body of the loop just tests 
to see if it should ring the bell and 
rings it if necessary. I'm doing this 
here rather than in the service rou- 
tine because it’s easier. The problem 
is the delay between turning the bell 
on and then off again. You can't wait 
in the service routine itself because 
the timing would be thrown off. By 
waiting here, the wait time is essen- 
tially independent from the start-of- 
beat timing. Of course, you could 
turn the bell on in the service routine 
and then set a flag, decrementing the 
flag on each timer tick and turning 
the bell off when the flag gets to 0. 
This method seems a lot of bother, 
however, so I took the easy way out. 
The final point worth mentioning is 
that interrupts have to be disabled 
while you do the tests because there 
are two variables involved and you 
don’t want one of these to magically 
change its value halfway through the 
test. Disabling interrupts prevents 
this change. 


Availability 
All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 336-3600, ext. 
216. Please specify issue number and 
format (MS-DOS, Macintosh, Kaypro). 
Because the code this month is 
pretty compiler dependent, I’m dis- 
tributing executable versions (along 


with the full source code) through 
Software Engineering Consultants, 
P.O. Box 5679, Berkeley, CA 94705. 
This version has been enhanced to al- 
low several different kinds of warn- 
ing tones and to allow duration to be 
specified in minutes and seconds as 
well as beats. The cost is $20. 
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COLUMNS 


STRUCTURED PROGRAMMING 


V.I.P., Clustered Binary Trees, and Clustered List Data Structures 


his month I discuss the Visual 

Interactive Programming (V.LP.) 
language, a new icon-based inter- 
preter for the Apple Macintosh com- 
puter. My second topic conforms 
with this issue’s theme—algo- 
rithms—by presenting modified 
structures for binary trees and 
linked lists. 

The Macintosh has been blessed 
with numerous language interpret- 
ers and compilers: BASIC, FORTRAN, 
Pascal, Modula-2, C, LISP, PROLOG, 
Forth, and so on. Now, Mainstay of 
Agoura Hills, California, has devel- 
oped a new language that truly takes 
advantage of icons and the Macin- 
tosh user interface. V.I.P. is an inter- 
preter that breathes life into a flow- 
chart— instead of typing text for the 
source code, you can assemble a pro- 
gram using special flowchartlike 
symbols. 

V.I.P. also incorporates a program- 
ming environment. Its appearance 
resembles MacPaint: a menu bar 
across the top; a flowchart viewing 
port; and to the left of this port, three 
groups of icons—object (data-type) 
icons, icons for loops and decision- 
making constructs, and icons for sev- 
eral classes of predefined routines. 
To build a program you point to an 
icon with the mouse and click. The 
environment’s response takes one of 
two forms: a window or a flowchart 
icon. The window form is fairly typi- 
cal of the Macintosh and involves a 
more sophisticated level of interac- 
tion with the user. The icon form lets 
you fully define the flowchart sym- 


by Namir Clement 
Shammas 


bol and represents a simpler level of 
interaction. Each flowchart symbol 
has a comment line at the bottom. 
The product uses the same geomet- 
ric shape—namely, a horizontal rect- 
angular strip—for all the icons. At 
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the two edges of the rectangular icon 
are two squares: one to open the 
icon, the other to close it. Figure 1, 
page 123, shows a sketch of an 
opened FOR-NEXT icon. The rectangle 
containing the for keyword is the 
permanently visible part of the icon. 
The two columns below it are for in- 
put or inspection. The left column of 
rectangles labels the information re- 
quired and encloses the object type 
in parentheses. V.I.P. uses lowercase 
and uppercase letters for the object- 
type codes to indicate input and out- 
put, respectively. The last row is re- 
served for comments. 

V.I.P. supports a fixed set of object 
(data and constant) types. They are: 


¢ BYTE, which uses 1 byte of storage. 
Short integers (-128 to + 127) or single 
characters can use this type. 

e INTEGER, which uses 4 bytes to ac- 
commodate long integers (between 
minus and plus 2 billion). 

¢ REAL, which occupies 10 bytes with 
a 64-bit mantissa and 15-bit exponent. 
Thus, floating points with 19 signifi- 
cant figures are supported with an 
exponent varying from -4,932 to 
+ 4,932. 

¢ POINT, which requires 4 bytes of 
storage to represent a vertical and 
horizontal set of coordinates. (The 
range of values for each axis is 
-32,678 to +32,767.) This is equiva- 
lent to a predefined record structure 
in a structured language such as Pas- 
cal or C. 

¢ RECTANGLE, which uses 8 bytes to 
represent four integers that define 
the upper-left and lower-right cor- 


ners of a rectangle. 

* CONSTANT, which is used to imple- 
ment symbolic constants. V.I.P. sup- 
ports four types of constants: charac- 
ter, integer, real, and string. The true, 
false, e, and pi constants are 
predefined. 


Arrays of up to three dimensions 
are supported, with the lower array 
bound fixed as 1. When you select a 
data-type icon, a window directory 
opens to display a list of all the vari- 
ables of the selected type. The win- 
dow lets you choose between global 
and local variables. You can also in- 
sert new variables, delete or change 
existing definitions, rename vari- 
ables (V.I.P. is case sensitive), convert 
scalar ones into arrays and vice 
versa, and alter array sizes and the 
number of dimensions. 

V.LP. offers two decision-making 
constructs: JF and CASE statements. 
The IF statement comes in the form 
of the IF-THEN-ELSE icon, with two 
flowchart branches. You can simu- 
late an ELSEIF by using nested IF 
statements. The IF icon is defined by 
entering a logical expression. The 
CASE statement supports up to 30 
cases. When you choose the CASE 
icon, you are prompted for the num- 
ber of cases to create an icon with the 
correct number of alternatives. You 
enter the selector (switch) variable 
and the values associated with each 
CASE clause. V.I.P. has no CASE ELSE 
clause. 

The language supports two loop 
constructs: FOR... NEXT and WHILE 
... DO. When you use a FOR loop, you 
must specify the control variable as 
well as its initial, final, and step val- 
ues. To insert a WHILE loop icon, you 
need to specify the logical expression 
used to iterate the loop. 

V.I.P. lets you divide your task into 
smaller routines—a feature useful 
for maintaining a clear set of flow- 
charts instead of using one big flow- 
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chart. You can choose to invoke a 
routine’s option from the top menu 
bar. This opens a new window in 
which you declare all your routines. 
You can easily switch between the 
main routine and any other routine 
to edit or inspect any program com- 
ponents. Each routine has its own 
workspace. When you select a rou- 
tine for the first time, you start with a 
clear flowchart. 

User-defined routines in V.I.P. can 
take parameters. A special window 
for parameters opens when you se- 
lect the “Set argument...’ option. 
The parameter window resembles 
the one for declaring variables, with 
a few differences. First, you must in- 
dicate the type and the input/output 
status. V.I.P. does not allow the same 
parameter to pass data back and 
forth between the routine and its 
caller. You can define the parame- 
ters as scalar or arrays (with up to 
three dimensions). Parameters can 
be inserted, deleted, or altered. V.I.P. 
maintains control over parameter 
passing and verifies that the argu- 
ments in the calls correspond to the 
parameters’ type, number, and 
sequence. 

V.LP. has a versatile set of intrinsic 
functions. Mathematical functions 
include square root, logarithmic, 
trigonometric (and their inverses), 
and hyperbolic (and their inverses). 
Other mathematical functions in- 
clude the absolute value, sign, modu- 
lus, minimum, maximum, and ran- 
dom-number generator. Another 
collection of functions returns the 
vertical and horizontal coordinates 
of a point and the four coordinates 
used to define a rectangle. 

The software comes with power- 
ful group of predefined routines. 
Each class of routines is represented 
by an icon located on the left-hand 
side of the flowchart viewing port. 
There are 15 classes of routines, listed 
along with their functions in Table 1, 
right. 

The V.I.P. editor enables to you per- 
form search/replace operations on 
the contents of the flowchart icons 
and also lets you cut, copy, paste, and 
delete icons. You can view the flow- 
chart using a smaller scale that can 
be magnified by pressing the shift 
key and the mouse button simulta- 
neously. In this mode, however, the 
screen displays uncommented icons, 
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which I find annoying. 

Finally, V..P. includes a versatile 
debugger that lets you single-step 
through your flowchart icons, set 
and remove breakpoints, and set/ex- 
amine objects. 

I ran some of the V.1.P. demonstra- 
tion programs, which illustrate how 
easy it is to write programs that use 
the Macintosh interface. I also wrote 


two versions of the Sieve benchmark 
program. The first (see the text ver- 
sion in Example 1, page 124) is writ- 
ten in a typical form—that is, no local 
routines are used. One iteration of 
this program took 3 minutes and 35 
seconds. Example 2, page 125, shows 
the text of the second version, which 
uses two subroutines—init and body. 

To the best of my knowledge, V.LP. 


_ Assignment: includes simple assignment and Hlingecnynd bytes” 
. Mathematics: includes integer, fraction, power, simple financial calculations, and 


sorting numbers. 


. String manipulation: to carry out typical related operations (string concatenation, s 
comparison, append, copying, and conversions with numbers). Sorting an array 


of strings is also included. 


. Graphics: a large set of routines that lets you obtain the peel of the Macintosh 


graphics. 


. Event trapping: to inspect the status of the mouse. 


few. 


. Menu management: to create, enable, disable, remove, and load menus, tor name a 


. Window management: to create, set up, load, remove, and activate oe 
. Text editing: to perform text editing functions, such as copying, pasting, cutting, _ 
clearing, and inserting text. Text file |/O operations are also included. 
. Dialog management: to permit your programs to display Macintosh dialog windows. 
10. Sound effects: to play tune, set voice, set notes, and turn sound on/off. 
11. Record management: to support dynamic record allocation, copying oo records, 


and field I/O. 


12. 1/O operations: a set of I/O routines for file manipulation (open, close, “get file 
position, and so on) and I/O of objects, records, text, and pictures. 

13. Printing: to set up the printed page and print text and pictures. 

14. Branching: to exit from loops and execute another program. 

15. Date and time management: to wait, read the clock, and obtain the time and the 


date. 





Table 1: V.1.P.’s classes of routines and their functions 


| control var (N) 


| initial (n) 


| boundary (n) 


| increment (n) 


| KK KKK IK KK KKK KKK KEKE KEI ERE ERK KE RRR ERKRER EERE | <-| Main loop 





Figure 1: Sketch of an opened FOR-NEXT icon 
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STRUCTURED PROGRAMMING 
(continued from page 123) 


is the first commercially distributed 
program of its kind for microcom- 
puters. It offers several interesting 
programming features—in particu- 
lar, visual programming, which is 
excellent for teaching because stu- 
dents don’t look at dummy flow- 
charts but at active ones. Visual pro- 
gramming may also prove valuable 
for algorithm design. In addition, 
V.LP.'’s library of routines make it a 
very capable language. I applaud 
Mainstay for its efforts and creativity 
in developing V.I.P. and look forward 
to more powerful versions. Mainstay 
has also announced that it will be 
realeasing V.1.P. translators for Pascal 
and C. 


integer 
Count 

Ditt | 
Flag[7001)} 
i 


Iter 


constants _ 


SIZE = 7001 


main 


read clock (T1) 

for (iter,1,1,1) 
assign (0,Count) © 
for (1,1,S122,1) 


I have praised both V.1.P. and the 
concept of visual programming; now 
let me mention a few shortcomings. 
First, programmers who type quick- 
ly and use keyboard macros may 
find software development in visual 
programming languages slow. Sec- 
ond, V.I.P. does not provide an escape 
mechanism once a flowchart icon is 
opened. Third, viewing large flow- 
charts is cumbersome. Fourth, pro- 
grammers have to inspect V.I.P.’s 
flowchart icons in order to view 
their contents. And finally, V.1.P. 
makes no provision for user-defined 
objects. 


Clustered Binary Trees 

Binary trees are useful data struc- 
tures for internal sorting and search- 
ing. Yet, despite all the praise binary 


** Main loop ** 


** Init. fiags ** 


assign (1,Flag[I]) 


for (1,1,S128,1) 


if (Flagii] = 1) 


assign (I+I+3, Prime) 
assign (I + Prime,K) 
while (K SIZE) 


assign (0,Flag[K]}) 
assign (K+Prime, K) 


assign (Count+1,Count) 


else 


read clock (72) 

wait (5000) 

assign ((T2-T1) /60, Diff) 
write output (1, "@i",Diff) 
get key (100,Ch) 





Example 1: V.1.P. text output for the first version of the Sieve program 
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trees receive, they are vulnerable to 
becoming unbalanced. The ultimate 
nightmare is to input a perfectly sort- 
ed array into a binary tree and end 
up with one long linked list! Two de- 
cades ago, two Russian mathemati- 
cians devised a few algorithms to 
maintain a binary tree in a near-per- 
fect balanced state. This type of bina- 
ry tree is known as an AVL tree. Yet 
both the basic binary tree and the 
AVL tree typically use less-than com- 
parisons to insert a new node or to 
search for one—they take no advan- 
tage of the difference between the 
values of a resident node and an in- 
coming data item. With binary and 
AVL trees, you compare the value of a 
data item with that of a node. If it is 
less or equal, you use the left node 
pointer; otherwise, you use the right 
node pointer. 

I suggest the following modifica- 
tion to the binary tree. In the new 
tree, each node has two left pointers 
and two right pointers, and so I call it 
the clustered binary tree (CB tree for 
short) and name the pointers low 
left, high left, low right, and high 
right. Why duplicate the pointers for 
each side? The answer lies in being 
able to select the proper pointer to 
follow, based on the difference be- 
tween the values of the node key and 
the incoming data item. A critical dif- 
ference value (CDV) is preassigned 
based on the nature of the data. 
When handling numeric keys, the 
values of the CDV and the whole algo- 
rithm are easy to implement. If the 
calculated difference is greater than 
the value of the CDV, then the high- 
left or high-right pointers are used, 
depending on the sign of the differ- 
ence; otherwise, the low pointers are 
used. 

The use of these four pointers in 
the CB tree helps to separate nodes 
with keys that vary widely and so 
speeds up tree insertion and search- 
ing. I used the Turbo Pascal program 
shown in Listing One, page 98, to 
compare the speed of insertion and 
searching in binary and CB trees. 
The program creates an array of 
numbers by using one of three meth- 
ods: random-number generation, the 
sine function, or the cosine function. 
Although the speed of searching was 
about the same, the CB tree was four 
to five times faster in inserting new 
data. I used the sine and cosine func- 
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tions to generate arrays with a cer- 
tain degree of order, which is the 
weak point of the binary tree. 

If string-type keys are used with 
CB trees, then the ASCII code num- 
bers of the first few leading charac- 
ters are utilized. You use the Pascal 
ORD( ) function to do this. The nu- 
meric values used for critical differ- 
ence calculations are ORD(Key/1)) for 
using the first character in the key, 
and: 


ORD(Key[1)) * 100 + ORD(Key(2)) 
for using the first two characters. 


Clustered List Structures 

You can also use the concept of the 
clustered binary tree structure with 
lists. Basically, a clustered single-link 
list (C list for short) is a list with two 
sets of pointers: one set forms the 
“high-track,” or fast search lane; the 
other forms the “low track,’ or a 
clustered sublist. Thus, a C list struc- 
ture has one high-track link and 
many clustered sublists, each linked 
to a high-track node, and so a high- 
track node becomes an index that in- 
dicates the range of data stored in its 
linked sublist. The effect of the two 
sets of pointers is best visualized by 
the two lanes of a highway, in which 
one is for faster traffic. You normally 
take the fast lane, as long as you are 
relatively far from the exit you seek. 
As you get closer to your exit, you 
switch to the slower lane. The same 
idea applies to C lists. By using nu- 
merical differences in comparing a 
node with an incoming datum, you 
can decide whether or not to use the 
high-track pointers and so bypass 
many unnecessary comparisons. 
This approach makes C lists more ef- 
ficient in searches than are normal 
lists. The price you pay is the extra 
set of pointers. 

Listing Two, page 102, shows a 
Turbo Pascal program that demon- 
strates C list insertions and displays. 
The program contains procedures 
for searching, inserting, and visiting 
C lists. Notice the following aspects of 
the program: 


1. A string-type key is used. The en- 
tire key of any node and incoming 
data is used in a logical comparison. 
The numeric difference is calculated 
for the first character only, however. 
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2. ACDV of 0 is used, which causes the 
high-track node to index on a range 
of one character. The range of char- 


number of one key character is used. 
3. The Search_Node procedure uses 
a Boolean flag, HiTrack, to switch 


acters is (CDV+1) when the ASCII | from using high-track pointers to 


byte 
Ch 


integer 


Count 
Diff 
Flag{7001] 
Iter 

a1 

T2 


main 


read clock (Tl) 
for (iter,1,i,1) 

init 

body (Count) 
read clock (T2) 
assign (TZ - JT1,Dif£) 
write output (1,"@i",Diff) 
get key —(5000,Ch) 


body (Count) 


<-- pee Count 
| 

integer | 

Flags [7001] 

I 

K | 

Prime : 
| 

assign 0, Count) 

for (I,1, 7001, 1) 
if (@lagiti = 1) 


** Initialize flags ** 
** Body of sieve ** 


assign (I+1I+3,Prime) 
assign (I+Prime, K) 


while (K 7001) 


assign (0,Flag[K]}) 


+ 
f 
: 
< 


_ else 

1 

init 
integer 


i 


for ti, Ce 7001, i) 
assign (1,Flag[I]) 


assign (K+Prime, K) 
assign (Count+1,Count) 


Example 2: V.1.P. text output for the modified Sieve program 
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respective manufacturers. 
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low-track pointers during a search. 
4. A new datum can be inserted in 
one of the following locations: 

¢ as the new head of the entire list 

¢ in a clustered sublist 

* as a new high-track node 

eas the new member of a high-track 
node, pushing the previous one in- 
side the clustered sublist 


The unused high pointers in a sub- 
list node can be used to form a dou- 
bly linked sublist. I feel the impact of 
C lists on list structures is greater 
than that of CB trees on binary trees. 
The improved performance brought 
by C lists is less affected by the type 
and variation of data than is the case 
with CB trees. 


Availability 

All the source code for articles in this 
issue is available on a single disk. To 
order, send $14.95 to Dr. Dobb’s Jour- 
nal, 501 Galveston Dr., Redwood City, 
CA 94063 or call (415) 366-3600, ext. 
216. Please specify the issue number 


and format (MS-DOS, Macintosh, 
Kaypro). 


DDJ 
(Listings begin on page 98.) 
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COLUMNS 


igitalk’s Smalltalk/V program- 

ming tool is a bit-mapped im- 
plementation of a substantial subset 
of Smalltalk. It is aimed primarily at 
the AI development market and is 
code compatible with the earlier 
Methods product, also by Digitalk. 
The feature that makes it suitable for 
Al, aside from the object orientation, 
is primarily the inclusion of a sur- 
prisingly complete and robust PRO- 
LOG compiler. This PROLOG includes 
many predicates that are lacking in 
Turbo Prolog, for example, such as 
functor and univ. 


Smalltalk/V also has excellent | 


graphics capabilities, such as turtle 
graphics, and offers good perform- 
ance in graphics animation. Also in- 
cluded with the product is a large on- 
disk tutorial that provides some 
substantial program examples. Digi- 
talk’s Methods was the first Smalltalk 
implementation for PCs, and it was 
an important landmark as far as 
many programmers were con- 
cerned. But here we have a major 
subset of it running in about half a 
megabyte. 

The first thing to realize about 
Smalltalk/V is that it is not just a pro- 
gramming language, but as any 
Smalltalk should be, it is a full, 
multiwindow environment with 
drop-down menus, mouse support, 
and more conveniences than you 
have probably ever seen in a pro- 
gramming environment on a PC. A 





by Ernest R. Tello 





mouse is not necessarily required be- 
cause Digitalk has implemented an 
ingenious use of the keyboard using 
two main clusters of keys on the far 
left and far right, which it calls the 
left-hand mouse and right-hand 
mouse, respectively. If you choose 
not to use a mouse, you will find that 
after a while this works quite well. 
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You can keep both hands in their 
place and reach for one of the keys in 
either cluster just as if you were 
pressing the buttons on two mice. 
The product was intended to be used 
with a mouse, however, and works 
much better with one, if for no other 
reason than that it makes the cursor 
fly across the screen instead of 
crawl. At this time, Smalltalk/V sup- 
ports the Microsoft mouse and the 
Mouse Systems mouse. I have also 
had no trouble using it with the Logi- 
tech mouse. 

The current version of Smalltalk /V 
comes on three disks—the Image, 
Source, and Tutorial disks—and re- 
quires 512K. It is a considerable ac- 
complishment to have implemented 
so much of Smalltalk-80 in half a 
megabyte. 

The dialect of Smalltalk/V is so 
close to Smalltalk-80 that most of the 
classes and examples in the Small- 
talk-80 book series can be entered ‘‘as 
is.’ The main exceptions are those 
that make use of multitasking, such 
as the simulation examples—the sys- 
tem accepts even these, although 
they won't work as written. This is 
important for programmers new to 
Smalltalk because there is really very 
little published material available 
other than what is available for 
Smalltalk-80 to give them a full over- 
view of the Smalltalk system and 
help them get going with it. 

In the Class Hierarchy Browser, 
the lower classes in the hierarchy be- 
neath those that are the immediate 
subclasses of Object, the root class, 
can be either hidden or visible as you 
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Smalltalk/V 


choose. Once you have chosen a par- 
ticular class with subclasses, you can 
choose to show or conceal just the 
subclasses under it. Smalltalk/V also 
has some additional commands on 
the desktop—for example, now you 
can cycle around to other windows 
from a command on one of the drop- 
down menus. This was needed be- 
cause, when a window is completely 
covered by another window, you 
cannot select it with the mouse. 

The basic types of facilities you use 
with Smalltalk/V are things such as 
workspace windows, browsers, 
menus, and occasionally what are 
known as inspectors. The main types 
of browsers are Class Browsers, Class 
Hierarchy Browsers, and the Disk 
Browser. These are specialized win- 
dow facilities that give you a view- 
point onto a particular aspect of the 
system. And as I mentioned earlier, 
you can create as many instances of 
these views as you may need. 


Class Consciousness 

A Class Hierarchy Browser is the 
Digitalk version of the Smalltalk Sys- 
tem Browser. As implemented in 
Smalltalk/V, this type of browser has 
four separate panels. The first is a 
scrolling window that lists the main 
classes and subclasses in the system. 
To the right of it is the methods pane, 
which displays the list of applicable 
methods. Beneath it are two small se- 
lector panes containing the words 
class and instance, respectively. Fi- 
nally, on the bottom is a large pane 
that displays the actual Smalltalk 
source code for selected items. De- 
pending upon whether you select on 
the instance or class pane, either the 
calling names of instance or class 
methods are displayed in the meth- 
ods pane. When you select one of 
these method names, its source code 
is displayed in the lower pane. When 
the source pane is current, it acts as a 
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text editing pane in which you can 
create and modify source code. 
What this type of browser means 
to a software developer is that you 
have a built-in overview of the sys- 
tem that can give you ready access to 
anything in the system at all times. 
The way you generally call upon 
things that have already been en- 
tered into the system is by creating 
instances of a class and initializing 
variables in a workspace window 
and then sending messages to it. Any 
involved interaction can itself be 





made into a program by adding it asa 
new subclass with its own variables 
and methods that can be instantiated 
and evaluated more easily. 

As mentioned earlier, Smalltalk/V 
also provides inspectors. These are 
special-purpose windows you can 
use as low-level debugging tools that 
allow you to examine and even 
change objects in the system. You 
don't open an Inspector window by 
accessing a menu; instead, you use a 
workspace or system transcript win- 
dow to send the inspect message to 
an instantiated object. An Inspector 
window with two panes—one on 
the right and one on the left—then 
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opens. The pane on the left displays 
the names of the instance variables, 
and the right pane shows their 
values. 

Two fonts come with Smalltalk/V. 
The fonts differ mainly in size—one 
has 8 X 8 pixels and the other 8 X 14 
pixels. Other features included in 
Smalltalk/V that were absent in 
Methods are a DOS shell, a garbage 
collector, and virtual memory 
management. 

The Smalltalk/V manual is the Tu- 
torial and Programming Handbook. 
In many respects it is remarkably 
clear and well written. Its main 
shortcoming is that, in spite of its 
thoroughness and readability, it is 
not a complete reference to the be- 
havior of the Smalltalk/V system. I 
would like to see a companion refer- 
ence guide that would go more deep- 
ly into the behavior and implemen- 
tation of the garbage collector and 
virtual memory, for example. 


Graphics 
An interesting approach to graphics 
has been adopted in Smalltalk/V. 
The basic class that implements the 
graphics capability is the BitBit class, 
which is named for the bit block 
transfer operation and is much as in 
Smalltalk-80. Together with its im- 
mediate subclasses Pen and Charac- 
terScanner and the subclasses of Pen— 
Commander and Animation — BitBlt 
provides the basis for how Small- 
talk/V creates bit-mapped displays. 
The block transfers occur between 
two Forms—a source Form and a des- 
tination Form. Forms, Points, and 
Rectangles constitute the main struc- 
tures used in Smalltalk/V graphics. A 
mechanism called a clipping rectan- 
gle is used—again, much as in Small- 
talk-80—to define the maximum size 
of the bit transfer. This clipping rect- 
angle restricts the size of the rectan- 
gular array of bits that will constitute 
the destination Form. 

To see how this works, first look at 
the section of the class hierarchy in 
question: 


BitBlt 
CharacterScanner 
Pen 

Animation 
Commander 


The CharacterScanner class has the 
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job of converting ASCII character 
codes into displayable bit patterns. 
The Pen class, as you might have sur- 
mised, is the class that implements 
turtle graphics. The Animation class 
constitutes collections of pens that 
represent the various objects being 
animated. Finally, the Commander 
class controls arrays of pens in sucha 
way that, whenever it receives pen- 
related messages, it relays the same 
message to each of the pens under its 
command. 

It is also interesting to see how 
Smalltalk/V handles windows. Here, 
the approach is very different from 
that used in Smalltalk-80 but is essen- 
tially the same as that used in Meth- 
ods. The following segment of the 
class hierarchy comes into play: 














Dispatcher 
GraphDispatcher 
PointDispatcher 
ScreenDispatcher 
ScrollDispatcher 

FormEditor 
ListSelector 
TextEditor 
PromptEditor 
TopDispatcher 
Dispatch Manager 


Browsing Drives 
The Disk Browser is one of the more 
original and powerful facilities in the 
Smalltalk/V system. Its window is 
composed of four panes. In the up- 
per-left pane is the directory hierar- 
chy list, which shows all the directo- 
ries on a disk. In the pane to the right 
of this is the file list, which displays 
the names of all the files in the select- 
ed directory. A large pane below 
these is the contents pane, which dis- 
plays either the screen of directory 
information as it would appear after 
an MS-DOS dir command or the con- 
tents of a selected file. And just above 
this, there is a small pane called the 
directory order pane, which displays 
the way directory information is cur- 
rently being sorted for display in the 
contents frame—such as by date, 
name, or size. With this facility you 
can create or remove directories and 
files as well as rename, copy, or print 
them. 

With the command menus accessi- 
ble from the contents pane, you can 
perform just about any file mainte- 
nance operation, including cut and 
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Performance and Portability 


For all the time you devote to developing 
your new programs, doesn't it make sense fo 
insure they perform like lightning and can be 
ported with ease? 
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Tasking Systems 


Based on the most advanced B+ Tree routines 
available today, c-tree gives you un- 
matched keyed file accessing performance and 
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c-tree’s royalty-free benefits, outstanding 
performance, and unparalleled portability. 


Only FairCom provides single and multi-user 
capabilities in one source code package, 
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values with key compression; multiple indices 
in a single index file; and automatic sharing of 
file descriptors. 


r-tree: Multi-File Report Generator 


r-tree builds on the power of c-tree 
to provide sophisticated, multi-line reports. 
Information spanning multiple files may be 
used for display purposes or fo direct record 
selection. You can develop new reports or 
change existing reports without programming 
or recompiling and can use any text editor fo 
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REPORT GENERATOR 


create or modify r-tree report scripts 
including the complete report layout. Af your 
option, end users may even modify the report 
scripts you provide. 


Unlimited Virtual Fields; Automatic File 
Traversal 
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of virtual fields based on complex computational 
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objects and other virtual fields. In addition, 
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even lets you nest these computational func- 
tions, causing files from different logical levels 
to be automatically traversed. 


Unlike other report generators, r-tree allows 
you to distribute executable code capable of 
producing new reports or changing existing 
reports without royalty payments, provided the 
code is tied to an application. Your complete 
source code also includes the report script 
interpreter and compiler. 


How To Order 


Put FairCom leadership in programmers utilities 
to work for you. Order c-tree foday for 
$395 or r-tree for $295. (When ordered 
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MasterCard and C.0.D. orders, call 314/445- 
6833. For e-t ree benchmark comparisons, 
write FairCom, 4006 West Broadway, Colum- 
bia, MO 65203. 
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paste, copy, read, and install. The full 
set of commands available as dis- 
played in the menu varies depend- 
ing upon the size of the file. Normal- 
ly, with files greater than 6,000 bytes, 
the contents pane displays only the 
first and last 2,000 bytes. In that 
event, you can use the read it com- 
mand to read in the complete con- 
tents of a large file. Also available is 
the save as command, which allows 
a file to be saved under a different 
name. Finally, the install command 
allows source files to be compiled 
into the Smalltalk/V system. 

One thing you have to keep track 
of is the size of the changes.log file. If 
it starts to get large, then there is a 
facility for compressing it. You must 
use this before the changes log gets 
too large and space on the disk runs 
low, or your image will die the 
death. The log facility is an essential 
one for those who can’t resist taking 
advantage of the fact that Smalltalk is 
internally extensible to a large de- 
gree, as are Forth and LISP. While 


modifying the internals to create an 
image of a new dialect of Smalltalk/ 
V, prior to getting your modified sys- 
tem debugged, it is bound to crash 
more than twice. The log file is insur- 
ance that you will never lose any- 
thing you've done for keeps, unless 
for some reason a crash clobbers this 
file. If necessary, you can even use it 
to restore the system image. 


A Method to the Madness 
At the very center of all this are the 
methods—the actual modular sub- 
routines that do the message passing. 
There are two different types of 
methods—instance methods and 
class methods, which are analogous 
to the instance and class variables. 
One important departure of Small- 
talk/V from the Smalltalk-80 stand- 
ard is the omission of the ClassDe- 
scription Class. In Smalltalk-80, the 
class hierarchy starting with the Be- 
havior class is organized like this: 


Behavior 
ClassDescription 
Class 
Metaclass 
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The arrangement in Smalltalk/V is 
the same except that ClassDescrip- 
tion is omitted. As a result, Smalltalk / 
V does not support message catego- 
ries—that is, the grouping of meth- 
ods for a given class under various 
category names. In many cases, I 
have found it relatively easy to add 
missing Smalltalk-80 classes to Small- 
talk/V. In this case an addition is not 
easy to make because, if ClassDe- 
scription is added as a subclass of Be- 
havior, it becomes a peer class of 
Class and Metaclass rather than a su- 
perclass of them. 

On the other hand, Smalltalk/V 
has several special classes that are 
not found in Smalltalk-80. Table 1, 
below, contains a list of those that are 
not simply machine-specific classes 
but have to do with the IBM PC imple- 
mentation and user interface. 


Example: A Small 

Inference Engine 

To give you a better grasp of specific 
things that Smalltalk/V can do, Ill 
now discuss an example of a simple 
rule-based reasoning system that 
was provided by Digitalk. First, let’s 
look at its overall structure. 

There is a kind of application hold- 
er class called InferenceEngine that 
has three subclasses—Expert, Fact, 
and Rule—that do all the work. An 
instance of the class Expert is a work- 
ing inference engine that can evalu- 
ate rulebases for particular subject 
areas or domains. In this case it is a 
tree expert. The inference engine is a 
simple forward-chaining one that ac- 
cepts a set of facts and applies the 
rules to the facts it already knows to 
determine if the goal is true. It then 
allows you to ask it to explain how it 


CursorManager 
Directory 
DiskBrowser 
Dispatcher 
DisplayString 
FixedSizeCollection 


IndexedCollection 


InfiniteForm 
LinkedListStream 
MethodDictionary 
StringBit 
StringModel 
SystemDictionary 


Table 1: Classes unique to Smalltalk /V 
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Graphics function help from CED editor 
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e Complete with user's manual 
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compile process 

8087 support (we sense the 8087 at runtime 

— no dual libraries) 

e ASM or OBJ output for use with MSDOS linker 

e Tiered error messages — enable-disable lint- 
like error checking 

e Fast compiles and executing code 

e Expanded user’s manual 

e CED full-screen program editor 

Everything you need at the unbelievable 
price of $59.95. 

Eco-C88 C compiler requires an IBM PC, XT, or 
AT (or compatible) with 256K of memory, 2 disk 
drives and MSDOS 2.1 or later. 









Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 





ORDER FORM CLIP & MAIL TO: Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 


ITEM PRICE QTY TOTAL 
Flexi-Graph Graphics $39.95 
Window Library $29.95 
Eco-Lib Librarian $29.95 
Eco-C88 C Compiler CED $59.95 
SHIPPING 
TOTAL (IND. RES. ADD 5% TAX) 
PAYMENT: OO VISA Oo MC CO) AE C1) CHECK 
CARD # EXPIR DATE 


ARTIFICIAL INTELLIGENCE 
(continued from page 132) 


arrived at its result. The main opera- 
tion of the inference engine is to ap- 
ply rules to test a result. It sends a 
message to the rules collection to test 
the facts and then applies the eval: 
method to see if the goal to be tested 
matches. If so, it returns true; if not, it 
returns false. 

The action method fires the con- 
clusion of a rule and in doing so adds 
a new fact to the facts collection. The 
way you use this litthe demo expert 
system is by entering everything it 
needs directly in a text area and then 
causing the interpreter to evaluate it 
by selecting DO IT from the drop- 
down menu. This does the following 


things: First, it creates an instance of 


the Expert class called by the global 
variable name Tree; second, it initial- 
izes an instance of the Fact class; and 
third, it submits various facts about a 
tree for evaluation by adding them to 
the Fact collection. This sends the 
message to the Tree expert to prove 
the goal that, given the previously 
entered facts, for example, the tree is 


of the cyprus family. 

Several things should be noted 
about this inference engine demo, 
which was not intended to be any- 
thing more than a simple toy demon- 
stration. First, it does not use a rule 
syntax other than Smalltalk itself, so 
no parser is needed. This allows it to 
run quickly but makes the rules less 
readable—a familiar trade-off. An- 
other point is that it lacks the ability 
to read in the fact and rule collec- 
tions directly from a file—a facility 
that could be added without too 
much difficulty. There is also no real 
user interface other than the explain 
method. In particular, there is no fa- 
cility for posing questions to users 
about values that the system cannot 
find otherwise. The point is that, al- 
though this is a toy system, it points 
to what a full system might be. Most 
of these features are not too difficult 
to add, once you grasp the basics of 
how to implement an inference en- 
gine in Smalltalk. 

The advantages of implementing a 
full expert system shell in Smalltalk / 
V are quite easy to see. First, you get 
the lush, easy-to-understand user in- 


Brand New From Peter Norton 
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that’s lightning fast with the hot 
features programmers need 


=NORTON 


This is the program- 
mer’s editor that I wished 
I’d had when I wrote my 
Norton Utilities. You can 








terface practically for free. It would 
not be a major development project 
to use the Smalltalk/V menu and 
windowing facilities to build a supe- 
rior expert system consultation envi- 
ronment. Another important plus is 
the multiple instance aspect of Small- 
talk. You can have as many Experts, 
like the Tree expert, initialized as 
necessary, each with a separate rule- 
set. Smalltalk/V could then be pro- 
grammed for one Expert to pass a 
message to another for a goal to be 
tested. Also, more flexible inference 
methods could be implemented for 
backward chaining and combining 
both forward and backward chain- 
ing. Finally, a parser could be writ- 
ten that could accept a more “‘friend- 
ly” rule syntax and compile it into 
the Smalltalk format as used here for 
running finished knowledge bases. 


Conclusions 

Smalltalk/V, Version 1.2, is a remark- 
able accomplishment and a very 
easy-to-understand environment for 
newcomers to Smalltalk to get ac- 
quainted with the language. Its per- 
formance is surprisingly fast, consid- 
ering all the things going on. 

I should also mention that the 
Goodies Extension Kit disk, which is 
now available as an option for Small- 
talk/V, contains an implementation 
of multiprocessing that could be im- 
portant if discrete simulation is what 
youre after in a Smalltalk environ- 
ment. The simulation examples in 
the Xerox Smalltalk series presume 
the multiprocessing capability of 
Smalltalk-80. Now, with the multi- 
processing classes provided on the 
optional Goodies disk, this should not 
be a problem. 
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Smart buyers start with DDU's free 
information card, a shopping center filled 
with information about the products and 
services advertised in this very issue: everything from software 
and systems to peripherals and professional support services. 

And smart buyers can use this free information card to 
quickly and easily gather a comprehensive file of facts, figures 
and product specs to sort out competing claims. Using DDUJs 
free information card can prevent you from making the wrong, 
costly buying decision. 

Be a smart shopper. Complete and mail this postage paid 
card today! 
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It’s Easy as ... 


Circle the appropriate free 
a@ information numbers, 
referring to the advertiser index for 
more information. 











2 a Fillin your name and address. 


3 Mail today—postage is 

@ absolutely free. You'll receive the 
product information you need directly from 
the manufacturers, thanks to DDJ. 
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LETTERS 


(continued from page 14) 


. Oh my God—he did forget). 
Stan Kelly-Bootle 
25 Parkwood 
Mill Valley, CA 94941 


Dear DDJ, 

Brian Anderson states that ‘‘often the 
only control structures available in 
assembly language are the condition- 
al and unconditional jump and the 
call to subroutine.” The 68000 and 
most other modern processors have 
looping structures, generally provid- 
ed for use by high-level language 
compilers. Therefore, I offer my Ex- 
ample 2, below, as a replacement for 
his. Also, notice that this code does 
not get stuck in an endless loop, un- 
like its predecessor. 

I would like to thank Mr. Anderson 
for his interesting and otherwise ex- 
cellent article. 

Matthew Siegel 

192 Belvedere St., #9 

San Rafael, CA 94901-4748 


Dear DDJ, 

I guess I still have a bit of egg on my 
face—it seems that I can’t program 
my way out of an infinite loop (at 
least when it comes to 68000 assem- 
bly language). 

The 68000 example that I cited in 
my Viewpoint won’t work because I 
forgot to increment the index vari- 
able inside the loop. My wife thought 
that, because this mistake supports 
my point (sort of), I should claim that 
I planted the error just to see if any- 
one would catch it. 

Please let me assure you, the mis- 
take was an honest one. My apolo- 
gies to DDJ readers (especially 68000 
hackers). 

Brian Anderson 

5105 Lorraine Ave. 

Burnaby, BC 

Canada V5G 2S3 


Math and Programming 
Dear DDJ, 

I feel I must take issue with Allen Ho- 
lub concerning his Viewpoint in the 
April 1987 issue of DDJ. 

To begin with, from personal ex- 
perience, I can draw a strong corre- 
lation between advanced mathemat- 
ics and the art of programming. 
There is a definite parallel between 
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juggling a large system of algebraic 
equations in your head and trying to 
maintain the purpose and use of 
many interacting variables in a com- 
puter program. Obviously imple- 
mentations of some of the purer algo- 
rithms in computer science such as 
queueing theory, graphs and trees, 
sorting algorithms, vector math, au- 
tomata theory, frequency analysis, 
formal logic, cubic splines, compres- 
sion algorithms, minimax and Bayes 
decision theory, branch and bound 
problems, probabilistic and statistical 
concepts, game theory, and all as- 
pects of operations research require 
a deep understanding of algebraic 
notation, linear algebra, and many 
other forms of abstract 
representation. 

Allen implies that mathematics is 
nothing more than applying a set of 
memorized rules to a problem. I beg 
to differ if he feels that solving a 
third-order differential equation or a 
partial derivative is not a creative 
problem solving process. Those 
‘memorized rules” are less rules and 
more approaches and guidelines 





with which to tackle the problem as 
stated. I find solving calculus and dif- 
ferential equations not at all unlike 
trying to come up with my own algo- 
rithms for a computer simulation 
problem. I feel that those students 
who could not tackle and solve ad- 
vanced mathematics would also 
have great difficulty in implement- 
ing their own fresh approaches to 
new and yet unsolved computer sci- 
ence problems. 

In agreement with Allen, I would 
state that if a student’s goal is to be- 
come an applications programmer 
whois never responsible for an origi- 
nal algorithm but who instead sim- 
ply implements code and algorithms 
found in books, then by all means 
forego anything beyond Algebra I. 
Allen covers himself by stating that 
math is not a prerequisite for pro- 
gramming as it is for engineering. 
What does he think the name com- 
puter scientist means anyway? And 
what kind of jobs do you think com- 
puter scientists have? They work on 
developing new approaches in medi- 
cine, vision processing, knowledge 
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INPUT 
Character data begins at DATA. 


REGISTER USAGE 


* & ee He He HOH OH OH OF 


68000 assembly language FOR loop 


Thefirst elementtoclearis FIRST, the last element EAS e 


AO points to the current element of the array. 
DO = one less than the number of elements lefttoclear. 


HER HE KK KE KK KK KE KKK KKK KK 


* 
FIRST DS.Wi 
LAST DS.W1 


DATA DS.B500 
* 


Me 
CLEAR LEA 


DATA, AO 
MOVE.W FIRST, DO 
LEA 0(A0,D0.W), AO 
MOVE.W LAST, DO 
SUB.W FIRST, DO 


LOOP CLR.B (A0)+ 
DBF DO, LOOP 


END 


; AO points to character data 

; DO = first element toclear 

; AO points tofirst element toclear 
; DO = number of elements toclear 

: (iess i, 
; clear an element and advance 
>; repeat 


for DBcc loop use) 





Example 2: Loop structure correction for Brian Anderson’s 68000 


assembly code 
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THE 150% SOLUTION 
FOR SUPERIOR 
DATABASE 
DEVELOPMENT 
AT 62% OFF. 


PHACT-manager™ gives MS-DOS™ programmers the ISAM they 
need. Plus a Report Writer, Query Language and full C source code. 














e Efficient B + Tree access method. 

e Unlimited number of keys and variable length records. 

e Security: Password protection, shared/exclusive use. 

© Runs on networks. 

@ Sequel-like query language for interactive or batch 
query/update. 

© Report Writer: Perform “‘joins’’ create and use variables, 
sort, format and more. 

e Versions for all popular C compilers. 

e Thousands of licenses sold. 


To order or get more information, call us at 
1-800-222-0550 (outside NJ) or 1-201-985-8000 now. 
MasterCard/Visa accepted. 


Only $249 complete! Full C source code. 
No royalties! 


UniPressSoftuware 


UniPress Software, Inc. 2025 Lincoln Highway Edison, NJ 08817 


MS-DOS is a trademark of Microsoft. PHACT-manager is a trademark of PHACT Associates. 
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LETTERS 
(continued from page 138) 


representation, flight simulation, 
computer games, the defense indus- 
try, and all forms of real-world simu- 
lation and control. One hardly needs 
a computer scientist to write a dBASE 
III application, yet the fields men- 
tioned above seek out and demand a 
computer scientist with heavy math- 
ematics background. This group of 
programmers does not make up a 
small specialized percentage but in- 
stead represents what a computer 
science degree is all about. Would 
you hire an MIT computer science 
graduate who had no more than 
high-school geometry to his or her 
credit? Neither would I. 

If Allen rewrote the entire View- 
point and replaced each occurence 
of “computer scientist’ with ‘data 
processing programmer,” it would 
be a valid and important commen- 
tary. A dBASE III, 4GL, or COBOL pro- 
grammer has little need for calculus, 
but for those of us breaking new 
frontiers in image processing, prob- 
lem solving, and other areas of com- 
puter science, the need for a strong 
background in mathematics and for- 
mal symbolic representation is clear. 

John W. Ratcliff 

2510 LaCaracas 

St. Louis, MO 63114 


Allen Holub replies: 

There are several ways to learn how 
to manage large systems, and I still 
believe that mathematics is among 
the poorest of these, primarily be- 
cause of the amount of background 
that you need just to get started. It 
takes a year and a half of college-lev- 
el math to get to the point where you 
can start solving third-order differ- 
ential equations, but most people 
(hopefully) know the rudiments of 
English composition before they get 
out of high school. Moreover, most 
holders of CS bachelors degrees don’t 
know how to solve differential equa- 
tions at all, for the simple reason that 
the courses aren’t usually required. 
Mr. Ratcliff is correct in saying that 
higher mathematics can be useful to 
a programmer. Mathematics at the 
undergraduate level is not. It seems 
to me a waste of time to acquire the 
skills necessary to understand differ- 
ential equations if all you really need 
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to do is understand how to approach 
complex systems. It’s not that mathe- 
matics won't get you there eventual- 
ly but that there are better and faster 
ways to acquire the same skills, nota- 
bly English composition. 

Mr. Ratcliff’s also contends that a 
strong background in ‘formal sym- 
bolic representation” is necessary. 
Again, I disagree. An ability to work 
with abstraction is, of course, neces- 
sary, but remember that logic started 
out life as a branch of philosophy, 
not of mathematics. Much of the ba- 
sic work in compiler theory was 
done by linguists (such as Noam 
Chomsky at MIT), not by mathemati- 
cians. More often than not, a “formal 
symbolic representation” serves to 
obfuscate, rather than clarify. Good 
examples of this obfuscation can be 
found in the “dragon” book (Aho, 
Sethi, and Ulman), written by math- 
ematicians and used in most compil- 
er-design classes (even, I’m reluctant 
to admit, in the one that I teach). Aho 
spends pages inventing ‘‘formal sym- 
bolic representations’ and then 
spends five lines actually explaining 
something useful. I’d rather spend 
half an hour reading a clear descrip- 
tion of a process in English than 
spend the same half hour trying to 
decipher five lines of formal sym- 
bols. More to the point, I’ve found 
that students who find Aho incom- 
prehensible have no trouble at all 
understanding the concepts, once 
these concepts are presented to them 
in a clear way that doesn’t use Aho’s 
formal symbolic notation. 


Call for Recipes 

Dear DDJ, 

In his boffo review of our book, Nu- 
merical Recipes: The Art of Scientific 
Computing (May 1987), Joe Marasco 
mentions that we want to hear from 
readers who would like to see a C 
version of the book and source-code 
“recipes. ’’ 

Actually, preparation of Numerical 
Recipes in C is well underway. In 
fact, we would like to hear from DDJ 
readers with an interest in beta-test- 
ing the C recipes. We'll happily send 
free beta diskettes to the first hun- 
dred people who respond, plus an 
additional number to readers who 


can describe (in a sentence or two) 
their strong qualifications. 

We view Numerical Recipes as a Co- 
operative project between authors 
and users. It’s time to get good, 
cheap, open-source numerical soft- 
ware into the C world, before the 
vendors of proprietary object-only li- 
braries get too established, as was his- 
torically the case in the FORTRAN 
world (much to the grief of FORTRAN 
programmers). 

William Press 

Numerical Recipes Software 

P.O. Box 243 

Cambridge, MA 02238 


Correction 

Dear DDJ, 

Thank you for covering PC-MOS/386 
from The Software Link in two arti- 
cles in your July 1987 issue. Unfortu- 
nately, some of the information in 
each article is incorrect. I'd like to 
take this opportunity to bring it to 
your attention. 

In the article ‘Developing 80386 
Applications... Today,” the prices 
given for PC-MOS/386 are wrong. The 
single-user/multitasking version is 
$195, the five-user version is $595, 
and the twenty-five-user version is 
$995. 

In the 16-Bit Software Toolbox col- 
umn The Software Link is erroneous- 
ly referred to on page 106 as “a com- 
pany previously known for its copy- 
protection schemes.’’ The Software 
Link has never been involved in any 
type of copy-protection—we devel- 
op and manufacture multiuser/mul- 
titasking software. 

Thank you for the opportunity to 
point out these errors of fact. Again, 
we appreciate your editorial cover- 
age. Our programming staff consid- 
ers Dr. Dobb’s a valuable resource 
and we are grateful for your cover- 
age of our products. 

Colleen G. Goidel 

The Software Link 

3577 Parkway Ln. 

Atlanta, GA 30092 


DDJ 
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SAS Institute Inc. 
Announces 














Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 


Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

™@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


i want to learn more about: 


OC the C compiler for MVS software developers 
OC the C compiler for CMS software developers 
OC the cross-compiler with PLINK86 and PLIB86 


today...so I'll be ready for tomorrow. 


Please complete or attach your business card. 


Name 
Title 

Company 
Address 
City 
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Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 
DDJ 9/87 


27511-8000. Telephone (919) 467-8000, x 7000 




















C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


Stale 3c er 


SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. Lattice is the registered trademark of Lattice, Inc. PLINK86 and PLIB86 are trademarks of Phoenix Software Associates Ltd. 
UNIX is the trademark of AT&T. Copyright © 1985 by SAS Institute Inc. Printed in the USA. 


PROGRAMMER’S SERVICES 


OF INTEREST 





PS/2 Add Ons 

Alloy Computer Products has an- 
nounced three products for the PS/2 
line: an internal tape drive and two 
adapters to connect its external tape 
drives and other products to the PS/2 
machines. Reader Service No. 17. 
Alloy Computer Products Inc. 

100 Pennsylvania Ave. 

Framingham, MA 01701 

(617) 875-6100 


Rodime has announced a hard disk 
on a card for the PS/2 Model 30, 
which it claims is ‘‘the only way for 
Model 30 users to get more than 20 
megabytes of internal storage.” The 
suggested retail price is $1,495. Read- 
er Service No. 18. 

Rodime Inc. 

Peripheral Systems Division 

29525 Chagrin Blvd., Ste. 214 

Pepper Pike, OH 44122 

(216) 765-8414 


CMS Enhancements has exhibited 
external hard-disk subsystems for 
the PS/2 Model 30 as well as for the 
entire PS/2 line and for the Macin- 
tosh SE. CMS also has the first 514-inch 
floppy drive for the PS/2, which 
should help all those early adopters 
move their software over to the PS/2 
hardware. Reader Service No. 19. 
CMS Enhancements Inc. 

1372 Valencia Ave. 

Tustin, CA 92680 

(714) 259-9555 


Kodak's diskette subsidiary, Verba- 
tim, has announced a 2-megabyte 3.5- 
inch diskette (formatted capacity 1.44 
megabytes). Reader Service No. 20. 
Verbatim Corp. 

1200 W.T. Harris Blvd. 

Charlotte, NC 28213 

(704) 547-6500 
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Development Software 
Sterling Castle, a new publisher of 
PC software, has introduced the 
Blackstar C function library designed 
to support the new ANSI standard and 
Microsoft, Version 3.0/4.0, and Lat- 
tice 3.0 C Compilers. Reader Service 
No. 21. 

Sterling Castle Software 

702 Washington St., Ste. 174 

Marina del Rey, CA 90292 

(213) 206-3020 


The macro processing program 
SmartKey is evolving closer to a pro- 
gramming language as of its new ver- 
sion, 5.2, which adds context sensitiv- 
ity and conditional processing. 
Programmer Nick Hammond wrote 
SmartKey back in 1979, and it is the 


original macro processor. It costs’ 


$69.95. Reader Service No. 22. 
Software Research Technologies Inc. 
2130 South Vermont Ave. 

Los Angeles, CA 90007 

(213) 737-7663 


Alan Weiner has taken macro gener- 
ation a step further. He has devel- 
oped a memory-resident program- 
ming language, which he calls the 
Weiner Shell and which generates 
memory-resident programs. The 
program is written in assembly lan- 
guage, takes up less than 50K, and 
supports the LIM expanded memory 
spec, so any program written with it 
has access to up to 8 megabytes of LIM 
memory as well. It supports DOS in- 
terrupts, user I/O, arrays, and float- 
ing-point math. The idea of writing 
memory-resident programs on the 
fly that play around with DOs inter- 
rupts is scary, but Alan claims the 
product itself is robust. Its price is 
$199. Reader Service No. 23. 
Gryphon Microproducts 

P.O. Box 6543 

Silver Spring, MD 20906 

(301) 384-6868 


Caro Research has a C code genera- 
tor, developed by an outfit called 
Chancelogic PLC, called Pro-C that 
supports various ISAM file handlers; 
produces stand-alone C programs 
rapidly; and requires no end-user 
run-time system, royalties, or license. 
Reader Service No. 24. 

Caro Research Associates 


202 South 22nd St. 
Tampa, FL 33605 
(813) 248-0852 


Books and Stuif 

We don't know why the company is 
called Rabbit, but we are compelled 
by this nomenclature to tell you that 
Rabbit has announced publication of 
its Portable C and Unix Programming, 
a 240-page reference guide for pro- 
grammers writing applications in C 
or in the Unix environment. The 
book is available from Prentice-Hall 
for $21.95. Reader Service No. 25. 
Rabbit Software Corp. 

Great Valley Corporate Center 

Seven Great Valley Parkway East 
Malvern, PA 19355 

(215) 647-0440 


AT&T also wants to educate you. It 
has announced a series of videotapes 
on Unix System V, Release 3. The 
tapes of possible interest to DDJ read- 
ers cover C and command shell pro- 
gramming and can be leased for 
$300-375 a month or purchased for 
more. Reader Service No. 26. 

AT&T 

Videotape Library 

(800) 247-1212 


Windows Applications 
Palantir Software has a shelf full of 
Windows applications, including 
word processing, spelling checking, 
scheduling, report generation, 
spreadsheeting, drawing, graphics 
scanning, and communications. 
Reader Service No. 27. 

Palantir Software 

12777 Jones Rd., Ste. 100 

Houston, TX 77070 

(713) 955-8880 


Among the announced Windows ap- 
plications at Comdex were two from 
hDC: an applications organizer 
called ClickStart, and EGA-16, a driver 
that doubles the number of displaya- 
ble colors under Windows. The idea 
behind ClickStart seems to be that 
corporate users of Windows will 
need password protection of applica- 
tions, turnkey menu selections, and 
restricted access to DOS functions. 
The vision of a traditional DP/MIS user 
interface on top of a point-and-shoot 
graphical user interface on top of the 


Dr. Dobb’s Journal, September 1987 


ye — , 


a a § 


Ce a eS ee Er ae 





THE PROGRAMMERS SHOP 


‘helps save time, money and cut frustrations. Compare, evaluate, and find products. 





iO eh aad 


RTC PLUS by Cobalt Blue. Translate 
FORTRAN 77 and RATFOR to C except 
F77 I/O, FORTRAN character, and 
complex expressions. Some DEC F77 
extensions. Library C Source. MS $ 279 


Al-Expert System Dev't 


Arity Combination Package PC $ 979 


System - use with C MS $ 229 
SQL Dev’t Package MS $ 229 
Auto-Intelligence PC $ 739 
CxPERT - shell for C MS $ 295 
Experteach - Powerful, samples PC $ 339 
Exsys PC $ 309 
Runtime System PC $ 469 
Insight 2+ MS $ 379 
Intelligence/Compiler PC $ 739 
T.I.: PC Easy PC $ 435 


Personal Consultant Plus PC $2589 
Personal Consultant Runtime PC $ 85 
Turbo Expert-Startup(400 rules) PC $ 129 
Corporate (4000 rules) PC $ 359 
Al-Lisp 


MS $ 159 





Microsoft MuLisp 85 
PC Scheme LISP - by TI PA 5 
Star Sapphire MS $ 459 
TransLISP - learn fast MS $ 79 
TransLISP PLUS 
Optional Unlimited Runtime $ 139 
PLUS for MSDOS $ 169 
Others: IQ LISP ($239), IQC LISP ($269) 
Al-Prolog 
APT - Active Prolog Tutor - build 
applications interactively PC $ 49 


ARITY Prolog - full, 4 Meg 

Interpreter - debug, C, ASM PC $ 229 
COMPILER/Interpreter-EXE PC $ 569 

Standard Prolog MS $ 77 
MacProlog Complete MAC $ 269 
MicroProlog - Prof. Entry Level MS $ 85 
MicroProlog Prof. Comp./Interp. MS $ 439 
MPROLOG P550 PC 3-1 
Prolog-86 - Learn Fast MS $ 89 
Prolog-86 Plus - Develop MS $ 199 
TURBO PROLOG by Borland PC $ 69 


Srcb1e 
BAS_C - economy MS $ 179 
BAS_PAS - economy MS $ 135 
Basic Development System PC -3 105 
Basic Development Tools PC 3 89 
Basic Windows by Syscom PC $- 95 
BetterBASIC PC ‘3 129 
Exim Toolkit - full PC $ 45 
Finally - by Komputerwerks PC $ 85 
Mach 2 by MicroHelp PU Bie 
QBase - by Crescent Software MS $ 89 
QuickBASIC PC $ 69 
Quick Pak-by Crescent Software PC $ 59 
Stay-Res PCs oF 
Turbo BASIC - by Borland PCs 69 





TP2C - Translate Turbo Pascal 
to formatted K & R C (proposed ANSI 
85 standard). Include files, in-line 
code, nested procedures. 95 + % 
successful conversion. PC $ 219 
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Free Literature 
Compare Products 


Evaluate products. Compare competitors. Learn about new 
alternatives. One free call brings information on just about 
any programming need. Ask for any “Packet” or Addon 
Packet C AIO ADA, Modula 0 BASIC 0 °C” 0 COBOL O 
Editors O FORTH © FORTRAN © PASCAL © UNIX/PC or 
0 Debuggers, Linkers. 


Our Services: 
» Programmer’s Referral List * Dealers Inquire 
* Compare Products + Newsletter 
* Help find a Publisher * Rush Order 
+ Evaluation Literature FREE + Over 700 products 
+ BBS-7 PMto7 AM 617-740-2611 * National Accounts Center 


C Language-Compilers 
AZTEC C86 - Commercial PC $499 
C86 PLUS - by Cl MS $359 


Datalight C - fast compile, good code, 
4 models, Lattice compatible, Lib 





source. Dev’rs Kit PC S$: 77 
Datalight Optimum - C MS $ 99 
with Light Tools by Blaise PC $168 
Lattice C - from Lattice MS $269 
Let’s C Combo Pack PC $ 99 
Let’s C PC’ $ 59 


Microsoft C 4.0- Codeview MS $275 
Rex - C/86 by Systems & 
Software - standalone ROM MS $695 





Turbo C by Borland PC $ 69 
Uniware 68000/10/20 Cross 
Compiler MS Call 
C Libraries-Files | 
C Index by Trio/PLUS MS $319 
BTree by Soft Focus MS $ 69 


CBTREE- Source, noroyalties MS $ 99 
CTree by Faircom- noroyalties MS $315 
rtree - report generation PC $239 
dbQUERY - ad hoc, SQL-based MS $129 
dbVISTA - pointers, network. 

Object only - MSC, LAT, C86 $129 

Source - Single user MS $389 
dBx - translator to library MS $299 


C-Screens, Windows, Graphics 


C-Scape - capture Dan Bricklin PC $179 
Curses by Aspen Scientific PC $109 
dBASE Graphics for C PC 3-8 
ESSENTIAL GRAPHICS - fast PC $185 


GraphiC - new color version PC $285 
Greenleaf Data Windows PC $159 
w/source PC $289 


Light WINDOWS/C-for Datalight CPC $ 79 
Windows for C - fast PC $189 
Windows for Data - validation PC $319 


Vitamin C - screen I/O PC 3159 
View Manager - by Blaise PC $179 
ZView - screen generator MS $139 


Atari ST & Amiga 
We carry full lines of Manx & Lattice. 







Call for a catalog, literature and solid value 


800-421-8006 


THE PROGRAMMER'S SHOP ™ 


Your complete source for software. services and answers 






5-D Pond Park Road, Hingham, MA 02043 
Mass: 800-442-8070 or 617-740-2510 7/87 
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dB2C Toolkit V 2.0 by Software 
Connection. 220+ dBIII functions in 
C source, file handler, windowing, 
interface to db__VISTA, c-tree, 
dBC III, MS, Lattice, Instant C. 
No Royalties MS $ 289 


dBASE Language 


Clipper compiler PC Call 
dBASE II MS $329 
dBase III Plus PC $429 
dBASE III LANPack PC $649 


DBXL Interpreter by Word Tech PC $139 
FoxBASE+ - single user MS $349 
Quick Silver by Word Tech PC $439 


dBASE Support 





dBase Tools for C PC $ 65 
dBrief with Brief PC Call 
DBC ISAM by Lattice MS Call 
dFlow - flowchart, xref MS Call 


Documentor - dFlow superset MS Call 
Genifer by Bytel-code generator MS $299 
QuickCode III Plus MS $239 
Tom Rettig’s Library PC $ 89 
UI Programmer - user interfaces PC $249 


Fortran & Supporting 


50:More FORTRAN PC $ 95 
Forlib+ by Alpha 
I/O Pro - screen development PC $129 
MS Fortran - 4.0, full *77 

No Limit - Fortran Scientific 
PC-Fortran Tools - xref, pprint PC $165 
RM/Fortran MS Call 
Scientific Subroutines - Matrix MS $129 


Multilanguage Support 


BTRIEVE ISAM MS $185 
BTRIEVE/N-multiuser MS $455 
Flash-Up Windows PC 3. 79 


GSS Graphics Dev’t Toolkit PC $375 
HALO Development Package MS $389 
HALO Graphics PS $209 
Informix 4GL-application builder PC $789 
Informix SQL - ANSI standard PC $639 
NET-TOOLS - NET-BIOS PC 3129 
Opt Tech Sort - sort, merge MS $ 99 
PANEL MS $215 
Pfinish - by Phoenix MS $229 
Polyboost - speed I/O, keyboard PC $ 69 
Prime Factor FFT - 8087/287 PC $145 
PVCS Corporate-source control MS $309 


PVCS Personal | MS $109 
QMake by Quilt co. MS $ 79 
Report Option - for Xtrieve MS $109 
Screen Machine Pc Ss 3 
Screen Sculptor PC. $95 
SRMS - new version MS $159 
Synergy - create user interfaces MS $375 
VXM - multi-env. link MS $195 


Xtrieve - organize database MS $199 
ZAP Communications - VT 100 PC $ 89 


C Worthy Interface Library - Complete, 
tested human interface for MS C, Lattice 
or Turbo C. Full screens, Windows, DOS, 
Error handling, Menus, Messages. 

Source separate, no royalties. PC $249 

Note: All prices subject to change without notice. Mention this ad. Some prices 


are specials. Ask about COD and POs. Formats: 3” laptop now available, plus 
200 others. UPS surface shipping add $3/item. 
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venerable A> prompt seemed a bit 
much, but later the same day we 
found another vendor doing like- 
wise. EGA-16 is $24.95, and ClickStart 
is $79.95. Reader Service No. 28. 

hDC Computer Corp. 

8405 165th Ave. NE 

Redmond, WA 98052 

(212) 475-5550 


Modems 

Prices of 2,400-bps modems are com- 
ing down a bit. Okidata has an- 
nounced two new 2,400-bps modems 


at $599 (external) and $549 (internal), 
with automatic adaptive equalization 
to ameliorate the problems of line 
noise. Reader Service No. 29. 

Okidata 

532 Fellowship Rd. 

Mount Laurel, NJ 08054 

(609) 235-2600 


The Zoom/Modem PC 2400 HC is an 
internal 300/1,200/2,400-bps IBM PC, 
IBM PC/XT, IBM PC/AT, and compati- 
ble modem with a suggested retail 
price of $199. It supports Bell 103a, 


Never Miss A Compile Again! 


BSW-Make, our 


retargetable make 


utility, speeds software 


development by automating the chore of rebuilding complex software 


products after an editing session. 


No more missed compiles! No 


more wholesale ‘‘just in case’’ recompilations of the whole product! 
BSW-Make insures that the minimum set of compilations, assemblies, 
and links required to correctly update your sottware are performed 


after each edit. A major timesaver! 


Syntax compatible with UNIX make 


Works with any compiler, assembler, or linker 


Macro facility for parameterized builds 


Indirect command file generation facility overcomes operating 
system command length limitations 


MS-DOS/PC-DOS version only $89.95 
VAX/VMS version from $299.95 


Not copy protected 


Unconditional 30-day guarantee — try it at no risk! 


for free product information, call 


(617) 367-6846 
Ask for Department D2 


The Boston Software Works, Inc. 
120 Fulton Street, Boston, MA 02109 
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212a, and CCITT v.22 bis protocols and 
uses the Hayes AT command set. 
Reader Service No. 30. 

Zoom Telephonics Inc. 

207 South St. 

Boston, MA 02111 

(617) 423-1072 


Displays 

Jeff Duntemann, editor of Borland’s 
new Turbo Techniques, often nags 
software vendors about support for 
full-screen displays. Jeff owns a Ge- 
nius 15-inch full-page display and has 
the radical idea that software devel- 
opers should not penalize him for 
Owning a good monitor. Micro Dis- 
play Systems announced at Comdex 
a line of 19-inch Genius full-screen 
displays using the TI 34010 graphics 
coprocessor. Reader Service No. 31. 
Micro Display Systems Inc. 

1310 Vermilion St. 

P.O. Box 455 

Hastings, MN 55033 

(612) 437-2233 


Cornerstone Technology has intro- 

duced the Vista 1600, a $2,195 19-inch 

monitor for the Macintosh II that dis- 

plays 1,600 X 1,280-resolution, the 

Mac’s max. Its noninterlaced screen 

has a 200-MHz bandwidth and re- 

freshes at 67 Hz. The monitor comes 

with a NuBUS controller card that oc- 

cupies one slot in the Mac II. 
Cornerstone has also announced a 

version of the monitor for PCs and 

386 machines for $2,395. se Ser- 

vice No. 32. 

Cornerstone Technology 

175A East Tasman Dr. 

San Jose, CA 95134-1620 

(408) 433-1600 


Hitachi has announced more hi-res 
monitors, including a 20-inch 1,280 X 
1,024-model with RGB input and vari- 
ous scanning frequencies for $3,995 
suggested retail. Reader Service No. 
33. 

Hitachi Sales Corp. of America 

401 West Artesia Blvd. 

Compton, CA 90220 

(213) 537-8383 


Amdek has announced a family of 
color and monochrome displays 
compatible with the PS/2’s VGA spec. 
Models 432 (monochrome) and 732 
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USING THE WRONG LANGUAGE CAN BE MURDER. 
SPEAK SMALLTALK/V 


Let’ talk languages. 
Programming languages 
like Turbo Pascal, C or Basic 
can be killers. To many, 
they're foreign, complex, 
and generally intimidating. 
Mistakes can be deadly. 

With Smalltalk/V, 
you have an elegantly 
simple solution that puts 
the power and majesty of 
a major AI programming language on your PC or 
compatible. It makes no difference if you’re an 
experienced programmer or just getting started. 
Smalltalk/V gives you an easy-to-use and flexible 
programming tool. 

This is the same language used by leading 
software companies for their new product develop- 
ment. There are sound reasons for this. Smalltalk/V 
offers a totally integrated programming environ- 
ment using the premier object-oriented language. 
You use natural language rather than complex 


TUTORIAL 


ARTIC aA 





programming codes. It puts Macintosh-type ee ee ee ee ee ee oe 


TO ORDER CALL 1-800-922-8255 TODAY. 


60-DAY MONEY-BACK GUARANTEE* © Smalltalk/V $99.95 


Send check, money order, or credit card 


graphic features on a PC including over- 
lapping windows, bit-mapping, pop-up 
menus, and a mouse interface. More than 
mere window dressing, Smalltalk/V delivers 
fully interactive windows that are easy to 
build and quick to modify. 


But dont just take our word on it. 
Hear what the experts have to say: 


this turns your PC into a hot workstation. Its fantastic. .. 


Highly recommended.” John Dvorak 


Contributing Editor 
PC Magazine 


“The tutorial provides the best introduction to 
Smalltalk available.” 


Dr. Andrew Bernat 


Al Expert Magazine 
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Street Address: 


City/State/Zip: 


Small 


elton le inc. to you. 
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“Smalltalk/V is the highest performance object-oriented 


programming system available for PCs.” 


Dr. Piero Scaruffi 
Chief Scientist 
Olivetti Artificial 
Intelligence Center 


Today, thousands of professionals, scientists 
and engineers are using Smalltalk/V to solve both 
simple and expert problems. Giving them a new 
dimension in computer applications for their PC. 

Put new life into your PC by calling toll free 
1-800-922-8255 and ordering Smalltalk/V today. 
Smalltalk/V by Digitalk, Inc., 9841 Airport Blvd., 


Los Angeles, CA 90045. 
$99 


(213) 645-1082. 

Smalltalk/V comes with 10 starter applications including Prolog and each Application 
Pack adds several more. All source code is included. Supports 640 x 480 color graphics 
with color extension pack. 


Smalltalk/V requires DOS and 512K RAM on IBM PC/AT/PS or compatibles and a CGA, EGA, 


Toshiba T3100, Hercules, or AT&T 6300 graphic controller. A Microsoft or compatible mouse 
is recommended. Not copy protected. 


Turbo Pascal is a trademark of Borland Internation. IBM, IBM PC/AT/PS are trademarks of 


International Business Machines Corporation. Macintosh is a trademark of Apple Computer, Inc. 


RS-232 Communications 


information to: Digitalk, Inc., 9841 Airport Application Pack $49.95 
Boulevard, Los Angeles, CA 90045. Pack ee ne gate 
Credit Card LJvisa [Mastercard “Goodies” Application 

Pack $49.95 
Card number: 

aoe, SPECIAL OFFER: 

Expiration date: Smalltalk/V and all 

3 packs only $199.95 


Shipping and handling $5.00 
(Outside North 

America $15.00) 
California residents add 
applicable sales tax 


your refund will be immediately forwarded 


TOTAL Pes 
*Unconditional 60-day money-back guaran- 
tee. Simply return to Digitalk, Inc. and 
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386 SPEED-ONLY $1,495 


Give your PC a new lease on life! With our industry first 
386 MotherBoard, your PC, PC/XT or compatible will 
revel in speeds equal to the Compaq DeskPRO 386. And 
faster. Because we've built in 1 Megabyte of high speed 
RAM and a 387 math coproressor socket for speeds that 
will knock you off your rocker. 

To keep retirement at bay, our 386 MotherBoard 
is compatible with the PC/AT (BIOS and I/O) — allowing 
you to run the new generation of DOS, OS/2. We've also 
included a 16-bit expansion slot that accommodates the 
latest I/O expansion card. No accelerator card can give 
you so much versatility. 


GET HAUPPAUGE'S NEW 386 MOTHERBOARD. 


CT ear Hauppauge Computer Works, Inc. 






mn = With 386 power and true AT software compatibility, your 
BoM Mec BBecBclMt.| business, desktop publishing and engineering applications 
0) a = will get a boost to boast about! Technical Features = 16 MHz 

80386 = 1 Megabyte of 100 nsec 4-way interleaved RAM 
= PCAT compatible I/O and BIOS for support of OS/2 = Seven 
8-bit expansion slots = Two 16-bit expansion slots = One 
32-bit RAM expansion slot = Optional 16 MHz 80387 math 
coprocessor ($695) 

Put the power of the 386 into your IBM PC for 1/4 the cost 
of a386 computer. And put off your PC’s retirement. For 
more information on our easy-to-install Motherboard, call 
1 (800) 443-6284. In NewYork, call (516) 360-3827. 


ae — ae =| 358 Veterans Memorial Highway, Haup D e! 


Commack, NewYork 11725 trademarks: IBMPCAT ar bee 
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(color) display 640 X 480 (VGA), 640 X 
400 (CGA), or 640 X 350 (EGA) pixels 
and sell for a suggested retail price of 
$245 and $625, respectively. Reader 
Service No. 34. 

Amdek Corp. 

1901 Zanker Rd. 

San Jose, CA 95112 

(408) 436-8570 


Tseng Labs has announced a new 
VLSI chip for IBM VGA graphics, for 
which the company expects to show 
a prototype this month. The ET3000 





chip will support all VGA graphics as 
well as MGA, CGA, and EGA. Reader 
Service No. 35. 

Tseng Laboratories Inc. 

10 Pheasant Run 

Newtown, PA 18940 

(215) 968-0502 


CAD/CAM/CAE 

Vector Automation claims that its 
CADMAX Version 3.0 software for 386 
workstations, formerly available on 
MicroVAx II, is the first CAD software 
to take full advantage of the 386. The 
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price is $3,350 for a 2-D version. Read- 
er Service No. 36. 

Vector Automation Inc. 

Village of Cross Keys 

Baltimore, MD 21210 

(301) 433-4200 


Modgraph’s Pegasus is a graphics 
card that supports EGA (or CGA, MGA, 
or Hercules) and high-resolution 
graphics on one monitor of an IBM PC, 
IBM PC/XT, IBM PC/AT, or compatible: 
computer, for CADD work and the 
like. The hi-res support includes an 
82786 graphics engine, there is a chip 
set supporting EGA, and the board dis- 
cerns which mode you want. Reader 
Service No. 37. 

Modgraph 

149 Middlesex Turnpike 

Burlington, MA 01803 

(617) 229-4800 


The Great Western Software Com- 
pany has a companion software 
product to AutoCAD called Auto- 
Board System II for use in the produc- 
tion of printed circuit boards. This is 
TGWSC’'s third automatic routing 
package for microcomputers; it’s 
been at it for a while. Reader Service 
No. 38. 

The Great Western Software Co. 

207 West Hickory St., Ste. 202 

Denton, TX 76201 

(817) 383-4434 


The MSA Group, developer of a 2-D 
CAD system for PCs, took the name of 
its product, TurboCAD, seriously, and, 
following the Botland lead, cut the 
product's price from $395 to $99 for 
all modules. Reader Service No. 39. 
MSA Group 

12021 Wilshire Blvd., Ste. 370 

West Los Angeles, CA 90025 

(213) 473-8711 


Computervision has announced 
Version 3.0 of its PC-based 3-D CAD/ 
CAM package, Personal Designer. 
New features include multiple views, 
improved dimensioning capability, 
and an undo feature. Reader Service 
No. 40. 

Computervision Corp. 

100 Crosby Dr. 

Bedford, MA 01730 

(617) 275-1800 


DDJ 
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We're Programmer's Connec- 
tion, your best one-stop 
source for quality program- 
mer’s development tools for 
IBM personal computers and 
compatibles. Here are some 
important facts you should 
Know about us and other 
dealers in our industry. 


FACT: 

FREE Shipping. Shipping to U.S. 
customers is FREE via UPS Ground. 
If you want your order shipped via 
an express service, we'll only charge 
you the shipping carrier’s standard 
rate with no special fees. Some 
dealers charge extra for shipping 
and then add rush charges for ship- 
ping via express services. Others 
may advertise “free” shipping but 
make up for it by charging extra 
handling fees. 


FACT: 

Credit Cards. We'll charge your 
credit card only when we actually 
ship your order. Some dealers would 
charge your credit card at the time 
you place your order. This could 
leave you waiting for your shipment 
for weeks or months while they use 
your money interest-free. 


FACT: 

Discounts. We discount all software 
products — even special order 
items. Every product in our adver- 
tised price list is shown with its list 
price and discounted price. We want 
you to know exactly how much you'll 
Save on every product. We don’t try 
to fool you by discounting some 
products and charging full retail for 
others. 
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FACT: 

Consistent Prices. We extend the 
Same current prices to every cus- 
tomer regardless of where they see 
our ad. Some dealers vary prices in 
different ads and then ask you to 
mention which one you saw. This 
technique allows them to charge 
you the highest prices possible. 


FACT; 

No Hidden Charges. The discount 
prices you see on the next two 
pages are all you pay. We don't 
charge extra for UPS Ground ship- 
ping, credit cards, COD orders, pur- 
chase orders, sales tax (except Ohio) 
or special handling (except for non- 
Canadian international orders). 


FACT: 

Guarantees. We offer FREE 30-day 
no-risk return guarantees and 30- 
day evaluation periods on most of 
our products. Some dealers have 
no return options while others often 
charge restocking fees of 15% or 
more. 


FACT: 

Quality Products. Our product line 
consists of hundreds of high quality 
software development tools speci- 
fically for IBM Personal Computers 
and compatibles. While some deal- 
ers try to carry every software prod- 
uct ever written, we carry only those 
that meet our very high standards 
for quality and value. 


FACT: 

Latest Versions. The products we 
carry are the latest versions and 
come with the same manufacturer's 
technical supportas if buying direct. 
While some dealers may participate 
in the software gray market, we’re 
authorized to sell every product we 
Carry. 

FACT: 

Large Inventory. We have one of 
the largest inventories of program- 
mer’s development products in the 
industry. Most orders are shipped 
within 24 hours. And if we don’t have 
a product in stock, we'll get it for you 
fast. 


Turn the page for our product list and ordering information. 
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FACT: 

Meticulous Packaging. We'll give 
your shipment the extra protection 
needed to reach you in the best 
possible condition. First we'll pro- 
tect your products from moisture by 
wrapping them in plastic. Then we'll 
insulate your box with high quality 
bubble-wrapping instead of the 
messy styrofoam chips that many 
other dealers use. Finally, we'll 
double-tape your box for extra 


strength. 

FACT: 

Independence. Since we're not di- 
rectly affiliated with any software 
publisher or developer, we can give 
you sound, unbiased advice. Unlike 
some dealers who have a special 
interest in promoting only certain 
products, we'll give you an objective 
look at the products we carry. 


FACT: 

Noncommissioned Staff. Our 
courteous sales staffis always ready 
to help you. And if you aren’t sure 
about your needs, our knowledge- 
able technical staff can give you 
sound, objective advice. Because 
they are noncommissioned, you 
won't be pressured into making a 
purchase. 


As you Can see, we're different 
from the other dealers in our 
industry. Our customers keep 
coming back because we con- 
sistently provide the highest 
quality service and the lowest 
prices. So call us today and 
experience the differences for 
yourself. 
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ai-expert systems 


1st-CLASS hy Programs in Motion ..............4.. 
EXSYS Development Software by EXSYS............ 

EXSVS Rantione System... 5... eke ceca ee 
Logic-Line Series A// varieties by Thunderstone....... 


ai- lisp language 

GCLISP Golden Common LISP by Gold Hill .......... 
GCLISP 286 Developer by Gold Hill ............... 
Microsoft LISP Common LISP ...........00eeeeees 
QNIAL Combines LISP & APL by NIAL Systems ....... 
TransLISP PLUS from Solution Systems ............ 


ai- prolog language 
Arity Combination Package ..................... 
Expert System Development Pkg 
File Interchange Toolkit...................... 
PROLOG Compiler & Interpreter ............... 
Screen Design Toolkit ...................005- 
SQL Development Package ................... 
Arity PROLOG Interpreter .................0000- 
Paity Standard Prada osk 6: <0: sa-eag ci rmtars i 
LPA microPROLOG A// Varieties................-- 
MPROLOG Language Primer LOG/CWARE........... 
MPROLOG P500 by LOGICWARE ..............4-. 
MPROLOG P550 by LOGICWARE ................. 
Turbo PROLOG dy Borland Intl ........... 000 eeaee 
Turbo PROLOG Toolbox by Borland Intl............. 


ai- smalitalk language 


I EE ig eho a Fo se OS RENE a were 
EGA/VGA Color Option ...................... 
NSQUMIOS LHSROUIOC. 5 ots ce pees nce a Sh baw 
I OGM os cca ka aioe et anes 


ai- texas instruments 


Arborist Decision Tree Software .............. New 
Pi SONS LAN | 50 ic a tbat abacg sw ca ee aie 
Personal Consultant Easy....................... 
Personal Consultant Image.................. New 
Personal Consultant Online 
Personal Consultant Plus ...............-.e0e0e- 
Personal Consultant Runtime .................... 


ada language 


AdaVantage by Meridian Software Systems ...... New 
AdaVantage Utility Packages .............. New 
DOS Environment Package ............... New 

Janus/ADA C Pak by A&A Software............... 

Janus/ADA D Pak by R&A Software............... 

Janus/ADA ED Pak by R&A Software.............. 


apl language 

APL PEEIR FPG Wi Bike ono thi en eed as he Se 
APL*PLUS/PC Spreadsheet Mgr by STSC .......... 
APL*PLUS/PC Tools Vol 1 by S7SC 
APL*PLUS/PC Tools Vol 2 by S7TSC 
RELAS Pe BY SISO ons viii occa ee See 8S 
Financial/ Statistical Library by S7SC .............. 
PuChOt RPL Gi ole ince sce ees pie teen ove nes 
STATORAPHICS OF S706 -k.c a3 oc ent peesatcvetes 


assembly language 


386 ASM/LINK Cross Asm by Phar lap ............ 
8088 Assembler w/Z-80 Translator by 2500 AD...... 
ASMLIB Function Library by BC Assoc.............- 
asmTREE 8-7ree Dev System by BC Assoc 
Cross Assemblers Various by 2500 AD ............. 
PASE OE CORR os as oa ho hde ee wwe eek New 
Microsoft Macro Assembler .......... 
Norton Utilities by Peter Norton ..............0055- 
Norton Utilities (Advanced) ..................45- 
Turbo Debugger by Speedware............... New 
Turbo Editasm by Speedware ..............00000- 
Visible Computer: 80286 ................... New 
Visible Computer: 8088 by Software Masters ........ 


basic language 


87 Software Pak by Hauppauge ...............5-. 
db/Lib for QuickBASIC hy AJS Publishing ....... New 
EXIM Services Toolkit by EXIM ............00000- 
Finally by Komputerwerks ..........6 0000 cece eeee 
AGE 2 Or MIO NG oii oo ee ae ei 
Microsoft QuickBASIC........... $20 Rebate Offer 
QBase Ae/ational Database by Crescent ........ New 
Quick-Tools by BC Associates... ........0cceeeeee 
QuickPak by Crescent Software 
Scientific Subroutine Library by Peerless ........... 
Screen Sculptor by Software Bottling .............. 
Sines OR IINIONT sso nc nics cent te sdans 
True Basic w/Aun-time ............+. 
ENS ict 5A sa ctlcn ne as ai ee eee 

Run-time Module ... 6.60 cel a eee 

CNS LIGBOGS ii hick ewan ee catwa aes a 
Turbo BASIC Compiler by Borland Inti ............. 


blaise products 


ASYNCH MANAGER Specify C or Pascal ........... 
CTOGLS PLUG fc actites Sen ee ket So cae ee Be 
LIGHT TOOLS for Datalight C......... 
PASBGCAL POUR e oats accrue coh ep adanes tue 
PASGAL TODUS 2550 cbacnc chee Vaabeges +a ns 
PASCAL TOOLS & TOOLS 2.................... 
RUDGE Fant Fimmaneer cso a spre tech as 
TURBO ASYNGH PLUS os. ese ee ee 
TORRES TOOLS oie ava. hee 
TURBO POWER TOOLS PLUS................... 
VIEW MANAGER Specify C or Pascal .............. 


borland products 

EUREKA Fquation Solver .... 2.0.0... cece eee eens 

Reflex & Reflex Workshop ...................... 
Reflex Data Base System .......... 0.0 ccc e eee 
FNTIOE DUOSMIIIOE oo 03 od eo Fak oc aE: 


eee e eee eee eee ee 


eee eeeeseeeeee 


eee eee eee ee eee eens 


List Ours 
495 399 
395 309 
600 469 
CALL CALL 
495 CALL 
1190 CALL 
250 149 
CALL CALL 
195 125 
1095 979 
295 229 
50 844 
650 569 
50 4644 
295 229 
295 229 
95 77 
CALL CALL 
50 3s 45 
495 395 
220 175 
100 64 
100 64 
99 84 
50 445 
50 3 45 
50 83645 
595 519 
95 84 
495 435 
495 435 
995 869 
2950 2589 
95 84 
795 735 
CALL CALL 
50 = s«AT 
95 84 
1250 1059 
395 349 
595 424 
195 139 
295 199 
85 58 
450 329 
275 189 
95 69 
795 579 
495 389 
100 89 
149 125 
395 329 
CALL CALL 
70 ~3=«64 
150 93 
100 CALL 
150 99 
89—s«a79) 
99 84 
100 89 
80 ~3=—s«64 
180 149 
99 89 
50 3 45 
99 —s 85 
69 = 55 
99 63 
89 —so79 
130 109 
69 ~—s«459 
125 99 
125 91 
69 55 
200 99 
100 79 
100 #79 
50st 
100 64 
175 135 
175 135 
100 ~=65 
125 99 
100 ©=79 
175 135 
502s «45 
100 #4679 
129 CALL 
100 «= 79 
275 199 
167 105 
200° 128 
150 = 89 
70 445 


Sidekick & Traveling Sidekick ................... 125 
SN oak a a awe wkd ae 85 
Aepeatn DOeKN = 55s Shs acide cei apees 70 

SONU So Sain KAR OCA Mi 0k bie Oe ow ENE ES 100 

Terbe BASIC Compiler. «2. 0.0.6. cc ce cee eee 100 

Turbo BASIC Database Toolbox .............. New 100 

Turbo BASIC Editor Toolbox................. New 100 

Turbo BASIC Telecom Toolbox............... New 100 

Turbo C Compiler (Ca// for support products)......... 100 

Turbo Database Toolbox..................200%- 70 

Penue Eater TONNE. CRS Sis as os ewe ee 70 

Turbo Gameworks Toolbox. ..................... 70 

Tarbe Graphix Teeties o.oo pies cece e es 70 

THE RTI. a5.a0 ba Cs dacoas se skew wees 300 

i. eee ee err ia tr eee ree 100 

Turbo PASCAL Numerical Methods Toolbox ......... 100 

TOUS FE OE AME 5 Fics os BSA Os Cacee ntines 125 
RE NN oS. 5. pec stccate & beh a <p tee te 100 
ON ior sce Fokdk soc 5 aaa ea Res Os aa 40 

Turbo PROLOG Compiler ...................-.-- 100 

TeteS CHOCO TOOOE.. sce cs ower pews veaeeccss 100 


Witt iisire Ss 3 ae liek aces wes we 70 


Word Wizard and Turbo Lightning ................ 150 
c compilers 
C86PLUS by Computer Innovations .............++- 497 
DeSmet C w/Debugger & large case .............-- 209 
DeSmet C w/Debugger only ..... 06.000 ce ee eeeees 159 
Eco-C Complete System by Ecosoft............+++- 140 
Lattice C Compiler vers. 3.2 from Lattice ........... 500 
Mark Williams Let's C w/csd...............--5-- 125 
Microsoft C Compiler w/CodeView ...... New version 450 
Microsoft QuickC Compiler ................. New 99 
Optimum-C by Datalight .......... 0.0 e cece eee 139 
Turbo C Compiler by Borland ...........0 ee ee eees 100 
Uniware 68000/10/20 Cross Compiler by SDS ...... 995 
c interpreters 
C-terp by Gimpel, Specify compiler...... New Version 300 
C Trainer with Book by Catalytix...........2-0005- 122 
Instant C by Rational Systems.......... New Version 500 
Introducing C by Computer Innovations ............. 125 
Run/C by Age of Reason ....... 2.0. cccceccceses 120 
Run/C Professional by Age of Reason ............-- 250 
c utilities 
C++ by Guidelines w/version 1.1 kernel ...........- 195 
Csharp Realtime Toolkit by Systems Guild....... New 600 
c-tree & r-tree Combo dy FairCom ..............-. 650 
c-tree /SAM File Manager ............02000085 395 
r-tree Report Generator .......... cece eeeeees 295 
Data Windows by Magus Inc ..............-. New 245 
Wi SOEs CONE so ass 8 eax ten CES New 595 
dBx dBASE to C Translator hy Desktop Al ........... 350 
wth Saute COUR i eos ns hind cS 5808 New 550 
Flash-up Windows by Software Bottling ............ 90 
GraphiC Color version by Sci Endeavors.........-..- 350 
GRAPES OY SUDMIE 05. ois ors i nds ge 175 
HALO Graphics by Media Cybernetics .............- 300 
HALO Development Pkg for Microsoft.............. 595 
The HAMMER by OFS Systems .............-+55- 195 
PANEL Forms Management by Roundhill............ 295 
PANEL/TC for Turbo C by Roundhill........... New 129 
PAREL Plas by ROG 6c oos.5 oo es ic Seek sles 495 
PC Lint by Gimpel Software ............0000eeeee 139 
PLIUte PP OUNNSINL 6 ot ih te bac ce Vases see 175 
RTC PLUS Fortran to C by Cobalt Blue ............. 450 
Scientific Subroutine Library by Peerless ........... 175 
TE Text Editor source by Sub Systems ......... New 95 
Vitamin C by Creative Programming ..............- 225 
VC Screen Forms Designer...........00eeeeeee 100 
Zview by Data Mgmt Consultants .............-+5: 245 
cobol language 
COBOLS pI by FlOIUS «oon oo os cen essen ne ate dss 395 
FPLIB for Realia COBOL by BC Associates........... 149 
Micro Focus COBOL See Micro Focus Section 
Microsoft COBOL See Microsoft Section 
PORT BV PIO GONE nein emt ea Ov ob aw Meee New 995 
Realia COBOL with RealMENU ........ New Version 1145 
GON GOO oe ncn Socks Ho sseen New Version 995 
IS 5 doo ah Mec ae asco nn Se Ks 995 
RM/COBOL by Ayan-McFarland .............0.445- 950 
RM/COBOL 85 by Ayan-McFarland ............... 1250 
SCREENIO by Worcom ........... cece cnees New 400 
screenplay for COBOL by Flexus .............00005 175 
css products 
Combo Package by Custom Software Systems.... New 199 
PC/SPELL Spelling Checker ..........0eseeeee 49 
PC/TOOLS UWIX-like Utilities... 6.6... eee 49 
PCT WEE 5. 5 oucc Spe ee sews 62 0c 149 
debuggers & profilers 
386 DEBUG Cross Debugger by Pharlap ........... 195 
Advanced Trace-86 by Morgan Computing .......... 175 
Codesmith-86 by Visua/ Age ........ 0.6... eee nee 145 
SGT By Soll AWVONCOS ois oie cn che cokes tac 125 
ST ONO BY ADU ois 6 Soa cane 55k os pede cee kes 395 
Periscope | with Board by Periscope ............++- 345 
Periscope Il with NM/ Breakout Switch ............. 175 
Periscope II-X Software only .................4-. 145 
Periscope Ill 8 MHz version ...............00000- 995 
Periscope Ill 70 MHz version ...........0.0000005 1095 
The PROFILER with Source Code hy DWB........... 125 
TURBOsmith Source debugger for Turbo Pascal....... 69 
The WATCHER Profiler by Stony Brook............. 60 
disk utilities 
Back-It by Gazelle Systems ...........0-0200000: 100 
Disk Optimizer by Softlogic Systems .............+- 60 
FASTBACK by 5th Generation Systems ............. 179 
Veache by Golden Bow Systems ...........++. New 50 
Vopt by Golden Bow Systems ................ New 50 
Vfeature by Golden Bow Systems ............. New 80 
Vfeature Deluxe by Golden Bow Systems ....... New 120 
XenoCopy-PC by XenoSoft .... 22.2.0... eee eee eee 80 


CIRCLE 129 ON READER SERVICE CARD 


dos utilities 


Command Plus by ESP Software ............0.000. 80 
FANSI-CONSOLE dy Hersey Micro ...............- 75 
MicroHelp Utilities by MicroHelp .............0005- 59 
Norton Commander hy Peter Norton .............-- 75 
OPAL Sheil Language by Software Factory .......... 99 
Q-DOS Il by Gazelle Systems ...... 2.6. e ee eee eee 70 
Taskview by Sunny Hill Software ............20555 80 
essential products 
CURE CINEINE 3 citer cy evs c vccem eget caqen ss 185 
Essential Comm Library with Debugger............- 250 
Essential Comm Library Software Only ........... 185 
Breakout Debugger Only Any /anguage........... 125 
Eqsonitinl Giants 2; ssc 5 take ee 6 a5 occu ele 250 
forth language 
CFORTH Wative Code Compiler by LMI ............. 300 
Forth/83 Metacompiler Specify Jarget............- 750 
PC/Forth by Laboratory Microsystems............-- 150 
PC/Forth+ by Laboratory Microsystems ...........- 250 
Advanced Color Graphics Support .............. 100 
Enhanced Graphics Support ..................-- 200 
Setul GET Sa ai sig ok erin a 8S oe Ke adem gs 100 
Interactive Symbolic Debugger...............-- 100 
Native Code Optimizer ..............--+---0e- 100 
Software Floating Point......................- 100 
UR/ Fad GRIME ets Aah as 3k SS 350 
Object Module Libraries..................0-5- 500 
fortran language 
50 MORE: FORTRAN by Peerless Scientific ......... 125 
ACS Time Series by Alpha Computer Service ........ 495 


AUTOMATED PROGRAMMER by KGK Automated New CALL 
Essential Graphics by Fssential Software ........... 250 


For-Winds by Alpha Computer Service ...........-- 90 
Forlib-Plus by Alpha Computer Service ...........-- 70 
FORTLIB by Sutrasoft. .... 2... cece ccc ec cesens 125 
FORTRAN Addendum dy /mpulse Engr ..........+-- 95 
FORTRAN Addenda by /mpulse Engr............++- 165 
GRAFLIB by Sutrasoft ........ 0... eee c cece eees 175 
HALO Graphics hy Media Cybernetics .............. 300 
1/0 PRO w/No Limit Library by MEF .............. 250 
Microcompatibles Combo Package...............- 240 
rN Fs bap sais Sas aa hace eo Set Sandals 135 
eae eer eg Peta Pre 135 
Microsoft FORTRAN w/CodeView ...............-- 450 
No Limit Library by MEF Environmental............- 129 
Numerical Analyst by MAGUS..............-0045- 295 
PANEL by Roundhill Computer Systems ............- 295 
PLOTHP. by Setvaselt . . won2 0 os ic cc cece ceese eee 175 
RM/FORTRAN by Ayan-McFarland..............-- 595 
RTC PLUS Fortran to C by Cobalt Blue ............. 450 
Scientific Subroutine Lib by Peerless .........--..- 175 
Statistician by Alpha Computer Service ...........-- 295 
Statlib.GL: by Peerless .............-- New Version 295 
Statlib. TSF: by Peerless ...........+4- New Version 295 
Strings & Things by A/pha Computer Service ......... 70 
greenleaf products 
Greenleaf Comm Library ..................-20-- 185 
Greenleaf Data Windows Library ................. 225 
WEN SOMO LOIG So Ss as can eed SE SS Eee 395 
Groombaal Fameene on ook sion 5 oss te hb eae 185 
help utilities 
HELP / Central. by MOS |... 3. 5 scivine site cciccveee 125 
On-line Help from Opt-Tech ..........0-000ee eee 149 
SoftScreen/HELP dy Dialectic Systems ...........- 195 
lattice products 
Lattice C Compiler ver 3.2 from Lattice............. 500 
with Library Source Code ..........00seeeeeees 900 
C Cross Reference Generator.................... 50 
WN SOUCE CONE Foe a ett nkt Fin woes oes 200 
C-Food Smorgasbord Function Library.............. 150 
with SOMOT CREE exe vance arare sorta ton 300 
C-Sprite Source Level Debugger ............00008: 175 
Curses Screen Manager ............0-00eeeeeees 125 
WH SOMES GONE Foo e6 Sic notes wk i soles scat’ 250 
dBC Specify OBC Il or OBC Il... 2 ee ce ee eee 250 
WH SOURCE COED oN oS cs seve td cence accede ews 500 
Re iia ee i Re ASS oes cepa. 750 
ith SOUPO LONE 5 sisi ia iin oe 05 Beta ead ARES 1500 
CURR RF oa seas soe be tek eS Seas 195 
RPG I! Combo A/ three items below............... 1100 
RPG Il Compiler Wo Royalties... .......0000000s 750 
RPG Il SEU Screen Entry Utility .............4.. 250 
eis EERE Pe eee Te ERP ER TT TOE oe 250 
RPG Il Screen Design Aid Utility ................. 350 
SecretDisk File Encryption Utility ...........6.005- 120 
SideTalk Resident Communications .............+++ 120 
SSP/PC Scientific Subroutine Library ..........+--- 350 
Text Management Utilities ...................0. 120 
TopView Toolbasket Function Library ............-- 250 
WN SOMEY COD ox. i aC sts ck bo wid-o cat ue'ye 500 
metagraphics products 
LightWINDOW/C for Datalight C ............0005- 95 
PUNT Sore goo Fok aes FUSES ew ate ins 95 
Fer Ga 5 os oo wo sen pease eae escave 275 
MetaWINDOW Wo Royalties... .........020 eee 195 
MGR / PENS 50. 55s doe nncs ipeweenns 05:0 275 
TurboWINDOW/C for Turbo C ... 1... ee eee eee 95 
TurboWINDOW/ Pascal for Turbo Pascal ........... 95 
micro focus products 
Micro Focus Level I! COBOL w/Animator........... 495 
LE So oon HaGaSw ty Fare wn eaten 349 
Lal TE ONG 5s SSS Bc 8 Se os Fine oe 195 
Micro Focus Level 1] COBOL/ET for UNIX.......... CALL 
Micro Focus Personal COBOL ................... 149 
Micro Focus Professional COBOL ................ 2000 
Micro Focus VS COBOL/XENIX ................. 1495 





395 
279 
155 
CALL 
119 
1595 
1195 
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Micro Focus Support Products: 
COBOL/IO Ad hoc Report Writer ............... 
COBOL/IO for DOS 3.X Networks ............... 


SEI ss o's v5-5 4 5 0b pee Re ee PRES Ca ee 
NUNOTED .;.. 5 cas wobode uaa eale fe 
microport products 
System V/386 Combination ................. New 
386 Runtime System .................... New 
386 Software Development System ......... New 
Text Preparation System ................. New 
386 Unlimited License Kit .................. New 
DOSMerge386 Aun DOS and UNIX together ..... New 
System V/AT Combination...................... 


NOI 5 Si. wry'o'tuntamang's «We hows 
AT Software Development System .............. 
Text Preparation System ..................... 
AT Unlimited License Kit ....................... 
DOSMerge286 Aun DOS and UNIX together ..... New 


microsoft products 
Microsoft BASIC Compiler for XEW/IX .............. 


Microsoft BASIC Interpreter for XEM/IX............. 
Microsoft C Compiler w/CodeView...... New Version 
Microsoft COBOL Compiler with COBOL Tools........ 

IN lee itancy aligtnetived otek +k bibs s 


Microsoft FORTRAN Optimizing Compiler/CodeView . . . 
Microsoft FORTRAN for XEMIX................4.4. 
Microsoft Learning DOS ....................4.. 
Microsoft LISP Common LISP .................44. 


Microsoft MACH 10 with Mouse & Windows ........ 
Microsoft MACH 10 Board only .................. 
Microsoft Macro Assembler ........... New Version 
Microsoft Mouse for JBM PS/2 .............. New 
Microsoft Mouse Bus Version.................--- 


Microsoft Mouse Seria/ Version .............2.05- 
Microsoft muMath /ncludes muSIMP ............... 
Microsoft Pascal Compiler...................... 

WMS tlh aoa és 5S Giisis bkdoe Lame wa ds eae 
Microsoft QuickBASIC............ $20 Rebate Offer 
Microsoft QuickC......................... New 
INEM, fo oi acu idiae es fea tie ale gly a Wt 5,6 0a ee 
Microsoft Windows ........................25. 
Microsoft Windows Development Kit .............. 
CINE WHE os veisks Gee sas eae os estes eoeeele 


modula-2 language 


EXE2LNK MASM Interface by PMI ............ New 
Macro2 Macro preprocessor by PMI ........... New 
ds | Ben eee erie New 
MODULA-2 Apprentice Pkg by LOGITECH.......... 
MODULA-2 Magic Pkg by LOGITECH ............. 
MODULA-2 ROM Pkg & Cross RT Debugger ........ 
MODULA-2 Window Pkg by LOGITECH............ 
MODULA-2 Wizard's Pkg by LOGITECH ........... 
EIN CIN ied a ias 6 ow ta RG aenc$ oes cee 


mouse products 


LOGIMOUSE BUS with PLUS Pkg by LOGITECH ...... 
with PLUS & PC Paintbrush. ........6.00e ec eeee 
with PLUS & CAD Software. ..........00cceeees 
Me FUSCA OPO. 5 i6. a oc ee Sees 

LOGIMOUSE C7 with PLUS Pkg, Specify Connector... . 
Bg ia Ba Se i |. a ie eS 
with PLUS & CAD Software... ........00ccceees 
EN FOS OOM GPO... 5 sik Ou bs vee cc cee’ 

Microsoft Mouse See Microsoft Section 


other languages 


ACTOR by Whitewater Group ..............4. New 
CCS MUMPS Single-User by MGlobal ............. 
CCS MUMPS Single-User Multi-Tasking ............ 
CCS MUMPS Multi-User .... 2... 06. ee eee 
Marshal Pascal by Marshal Language Systems ....... 
Pascal-2 by Oregon Software ...........00.0e eens 
Personal REXX by Mansfield Software ............. 
SHUBGIAT By CHGBIW 5 ois ac ect ecescs 


other products 


Carbon Copy Sy Meridian Technology .......... New 
Dan Bricklin’s Demo Pgm dy Software Garden ....... 

Dan Bricklin's Demo Tutorial .................. 
Fast Forward by Mark Williams .............. New 
First Publisher with Mouse from Logitech....... New 
Informix A// Varieties by Informix ...........005000. 


Instant Replay by Wostradamus ..............0000. 
Mace Utilities Pau/ Mace Software ............ New 
MKS Toolkit w/vi Editor by MKS ....... New Version 


MicroTEX /ypesetting from Addison Wesley ......... 
Net-Tools by BC Associates ..... 0... ccc cece eens 
OPT-Tech Sort by Opt-Tech Data Proc ............. 
PC/TOOLS by Custom Software .............00055 
Screen Machine by MicroHelp ..............0606. 


phoenix products 


Pasm86 Macro Assembler version 2.0.............. 
Pdisk Hard Disk & Backup Utility... 0.6... cece cee 
Pfantasy Pac Phoenix Combo .........00 ee ceeeees 
Pfinish Execution Profiler .. 2.2.2.2... 6.0 e eee eee 
Pfix8Gplus Symbolic Debugger ...........0.eeeees 
PforCe Specify C Compiler... 1... 6. cece eens 
PforCe++ Specify C Compiler and C++ ............. 
Plink8Gplus Overlay Linker ... 2... 6... c cece eee 
Pmaker Make Utility... 6... eee 
Pmate Macro Text Editor «2... 6... cc ccc eee eens 
Pee OME oh cc cw canes Cis deere eee eels 
Ptel Binary File Transfer Program ..............44. 


polytron products 


PolyBoost 7he Software Accelerator ............... 
CORP iyo to bin's Chee the es elnt ows ken es chee 
PolyDesk Ill Archivist ....................00. 
PolyDesk Ili Cryptographer ................... 
PINON EE RUE Sass gh os oe Ss saga oes wciown 


395 
795 
235 
795 


PolyLibrarian Library Manager ..............0005. 99 
PolyLibrarian Il Library Manager.................. 149 
PolyMake UN/X-like Make Facility................. 149 
PélySball coco re es eae ee: 149 
Polytron C Beamtlier 55.08 os Osc 5 atecis cnn Ge ches 50 
PolyXREF Complete Cross Ref Utility .............. 219 
PolyXREF One language only .............0.0000: 129 
PVCS Corporate Version Control System............ 395 
PUGS PO cacti he eee Niko wee Beebe 149 
program mgmt utilities 
Interactive EASYFLOW by Haventree .............. 150 
PrintO by Software Directions .............0000005 89 
Quilt Computing Combo Package ................. 250 
QMake Program Rebuild Utility... . 2.6... .06465. 99 
SRMS Software Revision Mgmt System .......... 185 
Source Print by A/debaran Labs ........ Wher eh aoe S 97 
TLIB Version Control System by Burton ............. 100 
Tree Diagrammer by A/debaran labs .............. 77 
raima products 
dbQUERY Single-User Query Utility. ............... 195 
Single-User with Source Code .................. 495 
IE eh OR hs Oe bes Chad awe 495 
Multi-User with Source Code................45. 990 
dbVISTA Single-User DBMS ............00 eee eeee 195 
Single-User with Source Code ...............04. 495 
occas EET TEE ORO TE Ee 495 
Multi-User with Source Code ...........0...005. 990 
sco products 
Complete XENIX System V by SCO................ 1295 
Development System .....................4-- 595 
Operating System Specify XT or AT.............. 595 
Text Processing Package..................... 195 
WOE OR teen oc Read Bind ps eta ee vads 595 
SCO Professional 7-2-3 Workalike for XENIX......... 795 
See PANES fold og abba oe ee wlewies eda s wiles 595 
softcraft products 
Btrieve /SAM Mor with No Royalties ............... 245 
UE NEY CUNY 55.2 was hens peas Gada 245 
Report Option for Xtrieve ................0000. 145 
Berseve/ for Networks: 2... 6665s cceeeceesescs 595 
NEE ries ois A Sek Ucancaees aah Swede bs 595 
Report Option/N for Xtrieve/N................. 345 
text editors 
Brief & dBrief Combo from Solution Systems ........ 275 
RE scr tebien Samy Cee ware keeh vas 195 
dBrief Customizes Brief for dBASE Il............. 95 
Epsilon Emacs-like editor hy Lugaru.............4.. 195 
KEDIT by Mansfield Software .................54. 125 
Micro/SPF by Phaser Systems .............02000: 175 
ING) Spa chews nie h gensawad «Sheep 450 
PC/VI by Custom Software Systems ............... 149 
SPF/PC by Command Technology Corp...:......... CALL 
Vedit Plus by CompuView ..............00000eees 185 
turbo pascal utilities 
ALICE /nterpreter hy Software Channels ............ 95 
DOS/BIOS & Mouse Tools by Quinn-Curtis.......... 75 
Flash-up Windows by Software Bottling ............ 90 
MACH 2 for Turbo Pascal by Micro Help ............ 69 
MetraByte D/A Tools by Quinn-Curtis.............. 100 
Science & Engrg Tools by Quinn-Curtis............. 75 
Screen Sculptor by Software Bottling .............. 125 
Speed Screen by Software Bottling................ 35 
System Builder by Royal American ................ 150 
ern Cty THA 6 SO ec eee 100 
NE UE oo gen taciahc Cah co Ve ee bea eee coe 130 
TDebugPLUS dy TurboPower Software ............. 60 
Tmark by Tangent Systems .................. New 80 
Turbo EXTENDER dy JurboPower Software .......... 85 
Turbo OPTIMIZER dy TurboPower ................ 75 
Turbo OPTIMIZER with Source Code .............. 125 
Turbo Professional by Sunny Hill ..............45. 70 
Turbo.ASM by BC Associates ................ New 100 
ROMAN HONPIIEST 8.5 Gd iisccs Ung os bdo can ewes 129 
TurboPower Utilities by TurboPower............... 95 
TurboRef by Gracon Services .......... 00 cece eee 50 
TURBOsmith Source Debugger by Visual Age ........ 69 
Universal Graphics Library by Quinn-Curtis .......... 150 
wendin products 
Operating System Toolbox ...................... 99 
Pee CRUE SYSIOM... eves ccesevesees 99 
PCVMS Similar to VAX/VMS ......... 00 c eee eee 99 
Wendin-DOS Multitasking DOS............... New 99 
XTC Text Editor w/Pascal source ................. 99 
xenix / unix products 
Btrieve /SAM File Mgr by SoftCraft ................ 595 
C-terp by Gimpel, Specify compiler ................ 498 
c-tree /SAM Mor by FairCom .............0 00200 395 
dBx with Library Source by Desktop Al.............. 550 
Desqview from Quarterdeck .............445- New 100 
DOSIX Console Version by Data Basics ............. 399 
DOSIX User Version by Data Basics ............4+:- 199 


Informix A// Varieties hy Informix ................. CALL 
Micro Focus Products See Micro Focus Section 

Microport Products See Microport Section 

Microsoft Products See Microsoft Section 


PANEL Plus by Roundhill Computer Systems ......... 795 
REAL-TOOLS Binary Version by PCT ............... 149 
LMS SOME VOOR. oe 6 3 OS sive ss bo cae oS 399 
Complete Source Version ...........0.0 200 eees 999 
RM/COBOL by Ayan-McFarland ...............-4. 1250 
RM/FORTRAN by Ayan-McFarland..............-. 750 


SCO Products See SCO Section 
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Call or write for our FREE comprehensive price guide. 
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LOWEST PRICES 
Due to printing lead times, some of our current 
prices may differ from those shown here. Call for 


latest pricing. 

FREE SHIPPING 
Orders within the USA (including Alaska & Hawaii) 
are shipped FREE via UPS. Express shipping is 
available at the shipping carrier's standard rate 
with no rush fees or handling charges. To avoid 
delays when ordering by mail, please call first to 
determine the exact cost of express shipping. 

CREDIT CARDS 
VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and authorized signature. 

CODs AND POs 
CODs and Purchase Orders are accepted at no 
extra cost. No personal checks are accepted on 
COD orders. POs with net 30-day terms (with initial 
minimum order of $100) are available to qualified 
US accounts only. 

SALES TAX 
Orders outside of Ohio are not charged state sales 
tax. Ohio customers please add 6% Ohio tax or 
provide proof of tax-exemption. 
INTERNATIONAL ORDERS 

Shipping charges for International and Canadian 
orders are based on the shipping carrier's standard 
rate. Since rates vary between carriers, please call 
or write for the exact cost. International orders 
(except Canada), please include an additional $10 
for export preparation. All payments must be made 
with US funds drawn ona US bank. Please include 
your telephone number when ordering 
Due to government regulations, we cannot ship to 


all countries. 
VOLUME ORDERS 
Volume orders may qualify for additional discounts. 
Call us for special pricing. 
SOUND ADVICE 
Our knowledgeable technical staff can answer 
technical questions, assist in comparing products 
and send you detailed product information tailored 
to your needs. 
30-DAY GUARANTEE 
Most of our products (excluding books) come with 
a 30-day documentation evaluation period or a 
30-day return guarantee. Please note that some 
manufacturers restrict us from offering guarantees 
on their products. Call for more information. 
MAIL ORDERS 
Please include your telephone number on all mail 
orders. Be sure to specify computer, operating 
system and any applicable compiler or hardware 
interface(s). Send mail orders to: 
Programmer's Connection 


Order Processing Department 
136 Sunnyside Street 


Hartville, OH 44632 
Sn sd ra ie ee 800-336-1166 
CANADA 0... 800-225-1166 
OHIO & ALASKA (Collect) 216-877-3781 
MOMNE I siciceca Soccer ls 9102406879 
ERS LHR 0 a 62806530 
INTERNATIONAL _...... 216-877-3781 


CUSTOMER SERVICE ... 216-877-1110 
Hours: Weekdays 8:30 AM to 8:00 PM EST. 
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OWAINE'S FLAMES 





t seems that look and feel may be 

less of a problem for Lotus Devel- 
opment Corp. than compiled spread- 
sheets are. Several products now 
turn 1-2-3 spreadsheet data into exe- 
cutable programs, providing a legal 
way to share and manipulate spread- 
sheet data while only buying one 
copy of the software. What you can’t 
do with these programs is design, or 
alter the design of, spreadsheets. In a 
company where spreadsheets are de- 
signed by one person and used by 
many, these products could save a lot 
of bucks—bucks that Lotus may feel 
ought to be flowing its way. Should 
be interesting. 

Personally, I find it weird to think 
of 1-2-3 as a programming 
environment. 

Speaking of weird programming 
environments, terminate-and-stay- 
resident implementations of BASIC 
and other programming languages 
are popping up all over the place. If 
you ask me, anyone who develops 
software in TSR space is playing with 
fire, but that won't stop the crazed 
code junkies from snorting this stuff 
up. | 

Well, you might program in the 
ether, but you don’t mess around 
with the herald of Galactus. Marvel 
Comics has leaned on Acius about the 
name Silver Surfer, and the compa- 
ny's Mac database is now called 4th 
Dimension. In an unrelated develop- 
ment in the same paragraph, Living 
Videotext recently moved to Easy 
Street (really), and there were ru- 
mors that the company was about to 
be bought by Symantec. More inter- 
esting were the hints that the vendor 
of a very successful windowing sys- 
tem was being pressured by a well- 
known venture capitalist to sell out to 
a major operating system vendor for 
the good of the industry. 

And you thought the Ollie North 
Show was the best soap opera in 
town. 
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Here, for all you model program- 
mers, is what you need to do to be- 
come a gatefold in a major computer 
magazine: As a result of your strate- 
gic partnership with the largest com- 
puter company, you deliver a multi- 
tasking operating system (retaining 
the right to license it to your part- 
ner’s competitors), and when your 
partner lays out its plans to add com- 
petitive value to the product with 
connectivity extensions, you strike 
another strategic partnership with a 
leading LAN vendor, intended to give 
you a piece of everybody else’s an- 
swer to those extensions. Meanwhile 
you hedge your bets on the operating 
system itself by striking a strategic 
partnership with a leading multiuser 
operating system vendor, and when 
you ve got that all sewn up, you con- 
vince programmers to pay you thou- 
sands of dollars to learn how to devel- 
op the software to run under your 
operating system. 


Cousin Corbett’s Secrets of Software 
Success, Part II: Product Names. 

The following advice from my 
cousin Corbett’s forthcoming book is 
reprinted here without comment. 

‘Although there is no formula for 
successful product naming, there are 
a few simple rules that will help you 
avoid the most common mistakes. 


“Try for unambiguous pronouncea- 


bility. Unless you're selling sexually 
explicit software, people ought to be 
able to go into a store and ask for your 
product without embarrassment. 
Does Digitalk expect people to ask for 
Smalltalk-vee or Smalltalk-five? 
(Some programmers have taken to 


calling it ess-tee-vee.) T,X shouldn't 
be spelled like tecks if it’s to be pro- 
nounced teck. Vision is pronounced 
vih-zhun, not vih-zee-on, and any at- 
tempt to get masses of people to pro- 
nounce it wrong will meet with 
resistance. 

‘By all means use your own name, 
especially if it also happens to have 
other, favorable connotations, as Nor- 
ton suggests the authoritative Norton 
Anthologies. Consider changing your 
name to Webster or Roget. Or 
Knuth.” 


And this is from Ray Duncan: 
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hla Da 


Michael Swaine 
editor-in-chief 


Dr. Dobb’s Journal, September 1987 








Some Very Impressive People Keep Our 
Asynch C Tools Under Their Hats 


This is the only way we can get some of our customers to 
take their hats off to us in public. We understand. Most 
people like to keep a good thing to themselves. 


Once you see how powerful and simple our functions are, 
you'll want to treat our Communications Library Plus as a 
well guarded trade secret too. 


Essential provides the best alternative to Assembly 
language for communicating 
via an RS-232. 






However, should 
curiosity get the best 
of you, call us at 
201-762-6965 and 
we'll let you in on 
the identity of some 
of our secret 
admirers. 


Behind every 
great program is a great library 


What Good Are Library Functions If 
You Can’t Get Them To Work? 


Providing functions is not enough. Essential Communica- 
tions Library Plus includes BreakOut, a slick on-line data 
monitor. BreakOut saves hours of frustration. We know, 
we used it to debug the XMODEM and other functions in 
Essential Communications. 


No Royalties, 30-Day Guarantee 
If within 30 days you don’t find our library or BreakOut 
totally satisfactory, hang the whole thing up and receive a 
complete refund. 










Functions At A Glance 

e Interrupt driven to 9600 @ Input buffers to 500K 
baud @ Source included 

e Hayes compatible support @ Demo terminal program 

e 150 page manual— tutorial e Demo BBS system 

e XMODEM, XON/XOFF e All major compilers 


support supported 
e Timer/Keyboard functions @ Ctrl-Break status 














Comm Library Plus/BreakOut $250 Comm Library $185 





BreakOut On-line Monitor/ Debugger 
e Monitor RS232 ports up to 9600 baud 

@ Control comm variables and line signals 

e Send/receive data using the scratch-pad editor 

e Edit scratch-pad in Hex or ASCII 

@ Save data to file or re-transmit it 

e User configurable keyboard macros 

e Use symbols for control chars (CACK>) for Hex 06 


BreakOut $125 





Do Your Homework 


The library you buy will influence the rest of your 
programming life. When you’ve done your homework, 
you'll choose Essential. Call our support staff of C pro- 
grammers and find out now how things 
will be after your check clears. 







To order or for support 
) call: 201-762-6965 
=» For foreign orders contact: 
England: Gray Matter Tel. (0364) 53499 


Japan: Lifeboat Inc. of Japan Tel: 293 4711 
West Germany: Omnitex Tel. 07623-61820 


Essential Software, Inc. 


PO. Box 1003, Maplewood, New Jersey 07040 
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Whatever dialect of IBM you need to speak, 
CROSSTALK® Mk. 4 makes the connection. 


Now, one program does the job that used to require several. 
CROSSTALK® Mk. 4 allows high-speed direct communication: 
between PCs and minicomputers, or (with an IRMA™ board) 

between your PC and an IBM Mainframe, or (with Smart Alec 
between your PC and IBM System 3x’s. If you like, CROSSTA! 

can support all of these sessions (and others) simultaneously 
and display each session in its own window. 

CROSSTALK Mk. 4 emulates all the terminals you’re likely 
to find useful. That includes IBM 3101 (page and character 
modes), IBM 525x, IBM 529x, IBM 327x, as well as many 

popular async terminals like the DEC VT100 and VT220 
series. CROSSTALK Mk. 4 includes the powerful CASL™ 
programming language, which allows you to automate 

communications applications quickly and easily. 

So if you’re used to thinking of CROSSTALK just to 

use with a modem, you’re missing some important 
connections. Ask your dealer for details, or write: 


dea Digital Communications Associates, Inc. 
1000 Holcomb Woods Parkway / Roswell, Georgia 30076 
1-800-241-6393 


CROTALK’ 


COMMUNICATIONS 
VW 


CROSSTALK and DCA are registered trademarks of Digital Communications 
Associates, Inc. IRMA, Smart Alec and CASL are trademarks of Digital Communi- 
cations Associates, Inc. IBM is a registered trademark of International Business 
Machines Corp. DEC is a registered trademark of Digital Equipment Corp. 
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